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OVERVIEW OF THE DRIVER ENVIRONMENT 


1.1 INTRODUCTION TO CONFIGURABLE DRIVERS 

Configurable drivers are drivers that can be incorporated into the Operating System without rebooting it. With this 
feature, you simply inform the Operating System of the location of the new device, plug it in, and use it. Configurable 
drivers are compiled and linked as independent programs; once loaded into memory, they function as an integral part of 
the Operating System. This manual tells you how to write configurable drivers for the Lisa. 


Every peripheral device designed for use with the Lisa must be supported by a device driver that communicates with 
the device and with the Operating System (OS). Figure 1-1 shows the Operating System environment for device 
drivers; the figure also indicates where in this manual or related manuals you can find information about the interfaces 
between the device, the driver, the Operating System, and the application program. 


If the controller for a device can simultaneously support several devices by demultiplexing interrupts, it must have a 
demultiplexing driver that dispatches interrupts to the device drivers. Section 1.5 describes communication between 
drivers. 

Chapter 4 

Hardware Reference Manual 


Chapter 3 Theory of Operations 
device hardware manuals 


FILE SYSTEM DEVICE 
APPLICATION DRIVER SUPPORT |4 | DRIVER 


Operating System 
Reference Manual Chapter 2 


DEVICE 
HARDWARE 


FIGURE 1-1 
Figure 1-1. Operating System Environment for Drivers 
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Driver operations vary with the type of device being supported. A driver for a sequential device must be able to transmit 
and receive byte streams of arbitrary length. For a disk device with a directory, the driver must be read and write 
contiguous 512-byte blocks and manage the 24-byte distributed directory record stored with every disk block. Disk 
drivers must also handle bad-block sparing. Demultiplexing drivers need to determine which device is the source of an 
interrupt and pass the interrupt to the appropriate device driver. 


Because the Lisa Operating System is a multitasking system, a device may receive I/O requests from more than one 
process. Therefore its driver must manage I/O Request Block queues and interact with the OS Scheduler and the 
Memory Manager. 


1.2 INVOKING A DRIVER THROUGH THE OS 

When an application program requests I/O, a device driver is invoked by the OS, usually from the File System. The File 
System manages I/O to devices and files by calling upon device drivers and demultiplexing drivers to handle I/O 
requests for their devices. 


A configurable driver is not linked with the OS. It is linked as if it were a standalone, executable program with an internal 
driver function subroutine which is passed a single parameter record. The driver function may in turn call other Pascal 
or assembler subroutines, including OS subroutines named ina USES statement, as required. The value returned by 
the main driver function is the error code returned by the driver. The parameter record passed to the driver contains a 
function code that specifies the operation to be performed by the driver. A different variant set of parameters is 
associated with each function code so that each driver operation may have its own set of parameters. (For a skeleton 
driver written in Pascal, see Figure 6-1.) 


The Operating System may invoke the driver to handle a hardware interrupt for its device, an interrupt of an alarm that 
the driver set, or a Memory Management request to restart an operation begun by the driver. In each case, a specific 
function code is used to inform the driver which operation it must perform. Figure 1-2 shows these operations on the 
left and their corresponding driver function codes on the right. An application program may also request an I/O 
operation such as reading, writing, or mounting a device. The OS passes the application's request to the driver by 
means of the function codes shown in Figure 1-3. (For a description of the function codes, see Table 3-1.) 


OPERATING SYSTEM CALLS TO A DRIVER 


hardware 
interrupt 


alarm 
interrupt 


Memory 
Manager 


Figure 1-2. How a Driver is Invoked by the Operating System 


Reqrestart 


FIGURE 1-2 
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APPLICATION PROGRAM CALLS TO A DRIVER 


DEVICE_CONTROL ( Beontrot | 


File System Utilities 
READ/WRITE_DATA 


FIGURE 1-3 


Figure 1-3. How a Driver is Invoked by an Application Program 


1.3 INITIALIZING AND LOADING CONFIGURABLE DRIVERS 
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Configurable drivers are not usually made resident in memory until they are needed by an application. When a device is 
mounted, its driver is loaded from disk into memory and the driver's data structures are initialized. However, the driver 
writer specifies whether the driver for a device should be loaded into memory when the OS is booted (see Chapter 5, 
Specifying Characteristics for a New Driver). 


1.4 COMMUNICATIONS THROUGH THE REQUEST BLOCKS 

The Operating System creates an //O Request Block to communicate information about each I/O operation. Every 
Request Block is linked to both the Process Control Block of the requesting process and to the Device Control Block 
for the device. A single device can therefore be shared among several processes. In a multitasking operating system 
like the Lisa's, the process that initiates an I/O transfer may not be executing when the I/O transfer actually occurs; the 
Request Block provides the driver with information about the I/O operation to be performed. The driver may enqueue 
the request if its device is busy with a previous request; otherwise it initiates the requested operation immediately. The 
driver then returns to the OS without waiting for the requested operation to complete. 


READ_DATA and WRITE_DATA (File System procedures described in the Operating System Reference Manual 
for the Lisa) operate synchronously; that is, they do not return control to the application that calls them until all of the 
data has been read or written. Instead they call BLK_REQ to block the current process until their request has been 
completed. Thus different processes can overlap requests to the same device (because drivers are written to operate 
asynchronously), but read and write requests from a single process execute strictly in a synchronous fashion. An 
application consisting of several processes could achieve asynchronicity by allowing processing to continue in one of 
the non-blocked processes during each I/O transfer requested by another process. 


1.5 COMMUNICATION BETWEEN DRIVERS 

Demultiplexing drivers serve as interrupt demultiplexors, while device drivers actually perform I/O transfers. A hierarchy 
of drivers may exist: a demultiplexing driver may call either a device driver or another demultiplexing driver below it in the 
hierarchy. The lowest level is always a device driver. 


Driver hierarchy is illustrated in Figure 1-4, using the Serial Communications Controller as an example. Interrupts are 
received by the Serial Communications Controller (SCC) driver at the highest level of the hierarchy. The SCC driver 
determines whether the interrupt is for the Asynchronous RS232 driver on Port A of the SCC or for the Applebus 
driver on Port B. RS232 is a sequential device; Applebus is a multi-drop, daisy-chained bus capable of controlling 
several different types of devices -- in this case, a printer and a disk. The Applebus driver determines which device on 
the bus is interrupting and invoked the driver for that device. 
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controller for 
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Serial Port A 


RS232 


Demultiplesing Driver Co Device Driver 


Figure 1-4. Communication between Drivers. 


The low-level drivers in this example are the Asynchronous RS232 driver, the printer driver, and the disk driver. Low- 
level drivers actually transfer data to or from the device. Higher-level drivers correspond to components in the hardware 
configuration that multiplex interrupts from several devices. Whenever a device driver is loaded into memory, the OS 
attaches it to each higher driver associated with it so that the higher driver can keep track of the devices it is responsible 
for. 
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CALLS FROM A DRIVER TO THE OS 


2.1 UTILITIES AND STANDARD DATA STRUCTURES 

Driversubs is a Pascal unit that enables drivers to access OS utility routines to perform the operations described in 
this chapter. These routines provide services such as memory management, real-time management, I/O Request 
Block management, and disk driver support. 


Driverdefs is a Pascal unit that provides definitions of data types for use in drivers. All of the Pascal identifiers used in 
this manual refer to Request Blocks and other standard driver data structures are defined in Driverdefs. Each device 
in the OS has a global Device Configuration Record. The Device Configuration Record (Devrec) is defined in the 
Driverdefs unit. Each time a driver is called, the address of the appropriate Device Configuration Record is passed to 
the driver. 


The object code for Driverdefs and Driversubs was supplied with your Lisa Operating System. For a listing of the 
source code for these units, see Appendix A. For information on how to make these units a part of your driver, see 
Chapter 6. 


Figures 2-1 through 2-3 show the relationship between the data structures used by a driver. (Figure 2-1 applies to 
sequential device drivers; Figure 2-2 applies to disk device drivers; Figure 2-3 applies to demultiplexing drivers and 
non-File System drivers.) All of the figures follow the same format. The center column shows the Device Configuration 
Record (and, for disk drivers, its extension). This record, one per device, is built by the Operating System during 
startup. The right-hand column shows the Device Control Block, which is allocated by the driver during its initialization, 
either at startup or when the device is mounted. You design the format of the Device Control Block to meet the needs 
of the particular device your driver supports. The left-hand column shows the data structures that are allocated during 
processing when a request is made for a particular operation. The Parameter Record contains the driver function code 
(described in Chapter 3) and other information applicable to the specific function to be performed. The name of each 
data structure is shown in capital letters above its symbol. Below it in parentheses is the name by which the data 
structure is known in Driverdefs. Each black rectangle represents a pointer field; the arrow shows the data structure 
to which it points. The Driverdefs name of the pointer field is shown to the left of the rectangle. 
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Figure 2-1. Data Structures for Sequential Device Drivers. 
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Figure 2-2. Data Structures for Disk Device Drivers. 


FIGURE 2-2 


- Page 140f 141 - 


6 2727 Device Drivers Manual Alpha Draft -- 11 January 1984 


DYNAMICALLY ALLOCATED BY OS ALLOCATED DURING 
ALLOCATED DURING STARTUP DRIVER 
INITIALIZATION 


PARAMETER RECORD DEVICE CONFIGURATION RECORD DEVICE CONTROL BLOCK 
(Params) (Devrec) 


Configptr 
Igp H 


allocated when driver one per device allocated by driver 
is called during Dinit, 
driver defines contents 


FIGURE 2-3 


Figure 2-3. Data Structures for Demultiplexing and non-File System Drivers. 


2.2 MEMORY MANAGEMENT 
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A driver is not linked with the OS, although it must execute as though it were a part of the OS. Therefore a driver 
cannot contain any statically allocated global variables. Instead the driver must acquire global data space from the OS 
Memory Manager to hold any variables it needs to keep track of its device. The Device Configuration Record is 
acquired by the OS during system startup. However, the Device Control Block for the device must be acquired and 
filled in by the driver when it is invoked with the Dinit function code. 


Memory management support routines are provided to ensure that user data buffers will be accessible by the driver 
when an interrupt occurs. 


2.2.1 Global Data Space 
Each device may acquire memory space from the OS Memory Manager. One thousand bytes per device is an 
approximate upper limit on the amount of global data space a driver may acquire. 


GETSPACE and RELSPACE are for dynamically acquiring and releasing OS global memory space. Drivers typically 
use GETSPACE during driver initialization (Dinit function code) and RELSPACE during driver resource 
deallocation (Ddown function code). 


2.2.1.1 GETSPACE Function 
function GETSPACE (Amount:int2; B_area:absptr; var Ordaddr:abspir): 
boolean 


Input Parameters: 
Amount: Number of bytes of free space required 
B_area: Base address of the free space pool data area. 
Output Parameters: 
GETSPACE: True if space was allocated; 
False if sufficient space was not available. 
Ordaddr: Address of the dynamic space allocated. 


Dynamic space is allocated from a free space pool. B_ area must contain a pointer to the free space pool header. The 
value for B_ area is provided by the constant Bsysglob, defined in Driverdefs. To point to the pool, the following 
lines of code are recommended: 


var 
ptrsysg: Aabsptr; 


ptrsysg := pointer(Bsysglob); 
GETSPACE(Amount, ptrsysg“, Ordaddr); 


Return with error 610 if GETSPACE returns false. 


2.2.1.2 RELSPACE Procedure 
procedure RELSPACE (Ordaddr: absptr; B_area:absptr) 


Input Parameters: 
Ordaddr: Address of the dynamic space allocated. 
B-area: Base address of the free space pool data area. 


Ordaddr contains the address that was provided by the GETSPACE function. The dynamic area at Ordaddr will be 
released back into the free space pool maintained in the data area defined by the base address B_area. (Refer to the 
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sample program fragment in the GETSPACE Procedure, Section 2.2.2.1.) 
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2.2.2 User Data Buffers 

User data buffers are located in data segments managed by the OS Memory Manager. Memory mappingis an 
addressing function provided by the MMU (Memory Management Unit) hardware. The mapped address for a data 
segment never changes during execution of its process; however, the underlying unmapped address (that is, its real 
location in memory), changes as the OS Memory Manager manipulates the location of the data segment during memory 
compaction operations. 


After a process requests I/O, its data buffers may not be mapped by the hardware MMU at the time of the interrupt. The 
routines in this section are provided to guarantee that when an interrupt occurs, the driver can locate the memory 
address for reading or writing data. 


Disk drivers do not call these routines because HDISK calls them on behalf of the driver. 


FREEZE_SEG prevents the data buffer from being moved by the Memory Manager during memory compaction; 
UNFREEZE_SEG releases the data buffer data to normal memory management. ADJ_IO_CNT provides a means 
of keeping track of the number of pending I/O requests for a given data segment. 


2.2.2.1 FREEZE SEG Procedure 
procedure FREEZE SEG (var Errnum:int2; C_sdb:absptr; Offset:int4; loreq_addr:absptr; 
var Buffaddr:absptr); 


Input Parameters: 
C_sdb: Data segment to be frozen. 
Offset: Supplied by a prior call to CVT_BUFF_ADDR. 
loreq_addr: Pointer to the Request Block for the data segment. 


Output Parameters: 
Errnum: 0 = successful freeze; 
nonzero = data segment in motion, unable to freeze. 
Buffaddr: Offset converted to a valid address. 


The FREEZE_SEG procedure freezes the data segment in memory. The freeze count of data segment C_sdb is 
increased by one each time FREEZE_SEG is called. Once frozen, the data segment cannot be moved by the OS 
Memory Manager until it is unfrozen. When the data segment is frozen, Offset is converted to an address that can be 
used by the driver. 


If the Memory Manager is in the process of moving the data segment at the time FREEZE_SEG is called, the freeze 
does not take place. The loreq_addr pointer is saved by the Memory Manager so that it can be returned to the driver 
after the data segment has been moved; the Memory Manager calls your driver with the Reqrestart function code 
after it has finished moving the data segment. 


C_sdb and Offset must be the Ordsdb and Offset values returned by the CVT_BUFF_ADDR procedure. If the 
driver was invoked with function code Dskio, Seqio, or Hdskio (that is, by READ_DATA or WRITE_DATA), 
CVT_BUFF_ADDR has already been called and the values it returned were saved for you in the Request Block 
variables Buff_rdb_ ptr and Buff_offset. If the driver was invoked with function code Dcontrol (that is, by a driver- 
initiated request for I/O from or to a user data buffer), you must call CVT_BUFF_ADDR yourself before calling 
FREEZE SEG. 


2.2.2. UNFREEZE_ SEG Procedure 
procedure UNFREEZE_SEG (c_sdb:absptr) 
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Input Parameters: 
c_sdb: Pointer to the data segment to be unfrozen. 


The freeze count of data segment C_sdb is decreased by one each time UNFREEZE_SEG is called. When the 
freeze count reaches zero, the data segment is no longer frozen and may be moved by the Memory Manager. 


2.2.2.3 ADJ_IO_CNT Procedure 
procedure ADJ_IO_CNT (Inc_io_cntF: boolean; C_sdb:abspir) 


Input Parameters: 
Inc_io_cntF: True if the count is to be incremented. 
False if the count is to be decreased. 
C_sdb: Data segment to be adjusted. 


ADJ_1O_CNT adjusts the count of pending I/O requests for the data segment upward or downward depending on 
the value of Inc_io_cntF. When the I/O count reaches zero, the Memory Manager is permitted to swap the data 
segment to disk if necessary. 


ADJ_10O_CNT is called by driver support routines in the Operating System to increase the I/O count for a device 
before Seqio or Dskio is called. To decrease the count, ADJ_IO_CNT must be called by your driver (HDISK calls it 
for disk drivers) at the time the I/O request is completed. 


2.3 REAL-TIME MANAGEMENT 
This section discusses critical timing considerations, interrupt handling and interrupt masking, a timer for timing driver 
code, and alarms for lengthy interrupt processing. 


2.3.1 The Microsecond Timer 

To help you determine how much time your driver spends in critical sections of code, a microsecond timeris available. 
The microsecond timer simulates a continuously running 32-bit counter that is incremented every microsecond. The 
timer changes sign about once every 35 minutes, and rolls over every 70 minutes. It is initialized to zero when the Lisa 
is booted. 


2.3.1.1 MICROTIMER Function 
function MICROTIMER: longint 


Output Parameters: 
MICROTIMER: Current value of the microsecond timer. 


The microsecond timer is designed for performance measurements. It has a resolution of 2 microseconds. Calling 
MICROTIMER from Pascal takes about 135 microseconds. Note that interrupt processing will have a major effect on 
microsecond timings if MICROTIMER is called from within a routine that has interrupts enabled. 


2.3.2 ALARMS 

Twenty independent alarms are shared by all drivers. Alarms can be dynamically acquired by drivers and should be 
returned when no longer needed. For line protocol timeouts, an alarm can be set to "wake up" the driver after a 
specified interval of time. The alarms have a 10-millisecond resolution; that is, if you set an alarm to go off with a delay of 
500 milliseconds, the actual delay will be between 490 and 510 milliseconds. 


The routines associated with alarms are 
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Get an alarm -- ALARM_ASSIGN 
Set an alarm -- ALARMRELATIVE 
Turn off an alarm -- ALARMOFF 
Return an alarm -- ALARMRETURN 


After obtaining an alarm by calling ALARM_ASSIGN, the driver sets the alarm to a specified number of milliseconds in 
the future. When the millisecond timer reaches the alarm's setting, the driver's alarm handler is called by means of the 
Dalarms function code. 


Interrupts at the priority levels specified by ALARM_ASSIGN are disabled during execution of the alarm handler. 


2.3.2.1 ALARM_ASSIGN Procedure 
procedure ALARM_ASSIGN (var Alarm:integer; Pdr:Ptrdevrec; Status:intson_type) 


Input Parameters: 
Pdr: Pointer to the Device Configuration Record associated with this alarm. 
Status: Level of interrupts enabled in alarm handler. 


Output Parameters: 
Alarm: Number of the assigned alarm; zero if none available. 


ALARM_ASSIGN returns an alarm number in Alarm. If an alarm is not available, Alarm is zero; your driver should 
then return with error 602. 


The driver should associate the alarm with the device specified in Pdr by saving the alarm number returned in Alarm in 
the Device Control Block. 


Interrupts from your device should be disabled while your alarm handler is executing in order to prevent data in the 
Device Control Block from being inconsistently modified. Status is the interrupt priority you want to be in effect when 
the alarm goes off. You should set Status to the lowest value that will disable interrupts for your device. (See the 
INTSOFF procedure, Section 2.3.3.1, for more information on possible values of Status.) When the alarm goes off, 
the driver is called using the Dalarms function code with the interrupt priority set to Status. 


2.3.2.2 ALARMRELATIVE Procedure 
procedure ALARMRELATIVE (Alarm:integer; Delay:longint) 


Input Parameters: 
Alarm: Number of the alarm to be set. 
Delay: Milliseconds to wait before the alarm goes off. 


ALARMRELATIVE sets an alarm to go off Delay milliseconds in the future. When Delay milliseconds have 
elapsed, the driver is called with the Dalarms function code. 


lf Delay is zero or negative, the alarm goes off immediately (at the next system alarm interrupt). 


Each alarm remembers only one setting. To reset an alarm call ALARMRELATIVE again; this causes the previous 
setting to be disregarded. 


2.3.2.3 ALARMOFF Procedure 
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procedure ALARMOFF (Alarm:integer) 


Input Parameters: 
Alarm: Number of the alarm to be turned off. 


ALARMOFF turns off an alarm that was previously set by ALARMRELATIVE. That is, ALARMOFF can be used to 
cancel a request for an alarm interrupt. 
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2.3.2.4 ALARMRETURN Procedure 
procedure AlarmReturn (Alarm:integer) 


Input Parameters: 
Alarm: Number of the alarm to be returned to the pool. 


The ALARMRETURN procedure returns an alarm acquired by ALARM_ASSIGN to the pool of available alarms; 
another driver can then use it. 


Alarms should be returned when they are no longer needed by your driver. This happens when the driver is called with 
the Ddown function code. 


2.3.3 Enabling and Disabling Interrupts 

Device Control Block variables may be in use by two or more driver functions at a time, potentially leaving the Device 
Control Block in an inconsistent state. To prevent this, interruptible driver functions must disable interrupts for a short 
period of time while updating the Device Control Block. The INTSOFF procedure allows you to disable some or all 
interrupts; the INTSON procedure re-enables them. 


The interrupt priority mask determines which interrupts will be acknowledged by the processor. Any interrupt with a 
priority higher than the mask is acknowledged; any interrupt with a priority less than or equal to the mask is inhibited. 
(for a more detailed description of the interrupt priority mask, see the MC68000 user's manual.) 


On the Lisa, the interrupt priorities are as shown in Table 2-1. 


Table 2-1 
Hardware Interrupt Priorities 
Priority Hardware 
system clock, built-in floppy disk, built-in parallel port 
2 keyboard, mouse, time-of-day clock/calendar 
3 slot 3 
4 slot 2 
5 slot 1 
6 built-in serial ports A and B 
7 memory parity error, programmable NMI (nonmaskable interrupt) key 


2.3.3.1 INTSOFF Procedure 
procedure INTSOFF (Level:intsoff_type, var Status:intson_type) 


Input Parameters: 
Level: New interrupt priority 


Output Parameters: 
Status: Old interrupt priority 


INTSOFF allows you to temporarily turn off some or all interrupts by specifying a new value in Level. Values for 
Level are 


clokints, winints, or twigints (priority = 1) 
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slotints (priority = 5) 
rsints (priority = 6) 
allints (priority = 7) 


Before INTSOFF changes the interrupt priority, it saves the current priority; this is returned to you in Status and 
should be used in the INTSON procedure to reset the priority level to its original value. 


2.3.1 INTSON Procedure 
procedure INTSON (Status: intson_type) 


Input Parameters: 
Status: Interrupt level to be restored. 


The INTSON procedure enables interrupts that were disabled by a previous call to INTSOFF. Status contains the 
original interrupt priority level in effect at the time INTSOFF was called. 


2.3.4 Lengthy Interrupt Processing 

An interrupt that takes more than a few milliseconds should process with all other interrupts enabled. The interrupt 
handler for you device can accomplish this by calling an alarm routine to perform the extended interrupt processing. 
The alarm mechanism is merely a convenient vehicle for scheduling a lengthy interrupt that can execute with interrupts 
enabled for all devices. 


When your interrupt handler determines that extended processing is required, it call ALARM_ASSIGN to associate 
an alarm with the lengthy interrupt routine, specifying an interrupt level of clkonints to enable all interrupts during 
execution of the routine. The interrupt handler then calls ALARMRELATIVE with zero millisecond delay, so that the 
alarm routine will begin execution as soon as possible. The actual delay before starting will always be less than twenty 
milliseconds and will average about five milliseconds. 


In the 68000 architecture, a device's interrupt handler (its Dinterrupt routine) executes with interrupts disabled for all 
devices of same or lower interrupt priority. The body of the lengthy-interrupt alarm routine (Dalarms) will execute with 
all interrupts enabled. Therefore it is necessary to protect the Device Control Block from simultaneous access when 
the same device tries to interrupt during the extended processing of a prior interrupt. 


Be sending an appropriate signal to the device, the device's interrupt handler can disable (and hold pending) any 
further interrupts for the interrupting device until the alarm routine has completed its processing. For example, if there 
is an interrupt from the 6522 parallel port that requires extended processing, the interrupt handler can set a bit in the 
6522's Interrupt Enable Register (IER) to zero. This prevents further interrupts from the device. When the alarm 
routine completes its extended processing alarm routine, the IER must be restored to the required non-zero value so 
that interrupts may occur again. For the serial ports, Write-Register-1 on the SCC serves the same function as the IER 
on the 6522. The disadvantage of this technique is that it increases the interrupt response latency on the device 
requiring extended processing. Depending upon the device, this may or may not be a problem. 


Some devices require very short interrupt response latency (less than 70 microseconds) or long interrupt execution 
times (more than 10 milliseconds). Such devices (for example, laser printers and some serial communications protocols 
at high baud rates) require all of the processing power of the 68000 for extended periods of time. Such devices are 
not really suitable for use in the multi-tasking Lisa environment. Unless these devices are provided with intelligent 
controllers that don't force an interrupt on the transfer of each byte, the Lisa is unavailable for any other tasks while it is 
supporting these devices. 


2.4 VO REQUEST BLOCK MANAGEMENT 


- Page 23 0f 141 - 


6 SF Device Drivers Manual Alpha Draft -- 11 January 1984 


As part of its I/O operations, your driver uses and updates fields within a Request Block. When it is passed to the driver, 
the Request Block (and, in some cases, its extension) already contains information about the I/O request. The driver is 
responsible for updating the transfer count and other fields in the Request Block. 


2.4.1 Request Block Initialization 

When a driver is invoked with function code of Seqio or Dskio, a pre-initialized Request Block is passed to the driver. 
All the information needed to initialize the I/O request is passed to the driver in the Request Block. The information in 
the Request Block is initialized as follows: 


pcb_chain: doubly-linked list to Process Control Block 
(PCB) 
reqstatus 
reqsrvv_f: active 
reqabt_f: false 
block_p_f: false 


blk_in_pcb: [i_o] 

hard_error: 0 

operatn: 0 for write; 1 for read 

cfigptr: pointer to device's configuration table entry 
req_extent: address of Request Block extension 

All Request Block extensions are initialized as follows: 

read_flag: true if read, false if write 

xfer_count: 0 


buff_rdb_ptr and 
buff_offset: result of calling CVT_BUFF_ADDR on data buffer 


For extensions used by Seqgio only, the following field is initialized: 
num_bytes: desired length of transfer 

For extensions used by Dskio only, the following fields are initialized: 
blkno: block number to begin read or write 

soft_headr: initial value for 24-byte file system "pagelabel" 
last_fwd_link: fwd_link value in pagelabel of final block 


last_data_used: data-used value in pagelabel of final block 
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num_chunks: number of blocks (512 bytes, plus header) to transfer 
io_mode: with_header...write using headers from soft_headr 
without_header...doesn't transfer headers 
raw_io...memory filled with all the headers, followed by all the data 


chained_hdrs...read using headers and verify against 
contents of soft_headr 


2.4.2 Request Block Updating 
When the driver starts up an I/O request, the following field should be changed in the Request Block: 


reqstatus 
reqsrv_f: in_service 


When a request for I/O has been completed or an error has occurred, your driver must update the Request Block and 
then call UNBLK_REQ to notify the OS that your driver is finished with the request. The error field in the Request 
Block must be set: 


hard_error: =0 for no errors, <0 for warnings, >0 for errors 
(warnings and errors, pass False to UNBLK_REQ) 


The driver must update the transfer count field in the Request Block extension: 
xfer_count: number of bytes transferred (not including bytes in disk block headers) 


For Dskio only, the driver must update the following field in the Request Block extension: 
soft_headr: the last header read when using "chained_hdrs" 
io_mode 


2.4.2.1 UNBLK_REQ 
procedure UNBLK_REQ (Regpir:reqpir_type; Success_f:boolean) 


Input Parameters: 
Reqptr:Pointer to the request that is completed. 
Success f: True if the request was successfully completed; 
False if Hard_error contains non-zero value. 


UNBLK_REQ unblocks the process that is waiting for the request specified by Reqptr. Success_f isa flag that 
informs the process of the result of the I/O request. 


For disk drivers the HDISK unit calls UNBLK_REQ on behalf of the driver at the end of a read or write. Other drivers 
must call UNBLK_REQ themselves. 


2.4.3 Request Block Queues 
A queue is a linked list, or chain. Two types of linked lists are used for Request Blocks: the first is a chain of all current 
Request Blocks for a particular process; the second is a chain of all Request Blocks waiting to perform I/O on a single 
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peripheral device. Figure 2-1 illustrates the two types of Request Block queues. 


DYNAMICALLY ALLOCATED BY OS ALLOCATED DURING 
ALLOCATED DURING STARTUP DRIVER 
INITIALIZATION 


PARAMETER RECORD DEVICE CONFIGURATION RECORD DEVICE CONTROL BLOCK 
(Params) (Devrec) 


Cb_addr 


allocated when driver one per device allocated by driver 
is called during Dinit, 
driver defines contents 


I/O REQUEST BLOCK 
(Reqblk) 


Cfigptr 


Req_exten 


one per I/O request 
(e.g., READ_DATA) 


wae EST BLOCK EXTENSION 
y (Seq. extend) 


FIGURE 2-1 
Figure 2-1 
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The two types of Request Block queues are circular (the end of the queue points back to the beginning) and doubly- 
linked (each Request Block points backward to the previous Request Block in the chain and forward to the next one). 
Figure 2-2 shows how a linkage record is inserted in a circular queue. The forward and backward chaining of Request 
Blocks is accomplished by means of the linkage data type. Linkages are not full addresses but rather offsets within the 
global data area. 
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FIGURE 2-2 


Request Block queues for disk READ_DATA and WRITE_DATA requests are handled by HDISK, a unit in the 
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Operating System. For all other kinds of I/O, your driver must maintain these queues. Three procedures and functions 
are available to help you: 


o ENQUEUE inserts linkages in a Request Block queue. 
o DEQUEUE removes linkages from a queue. 
o CHAIN_FORWARD points to the next Request Block in the queue. 


2.4.3.1 ENQUEUE Procedure 
procedure ENQUEUE (var Newlink, Leftlink:linkage; B_sysarea:absptr) 


Input Parameters: 
Newlink: Linkage record of the new control block. 
Leftlink: Linkage record of previous block in chain. 
B_sysarea: Address ordinal of the data area base. 


EN QUEUE places Newlink next in a chain headed by Leftlink. Newlink is the linkage record of the Request 
Block to be added to the chain. Leftlink is the linkage record of the Request Block in the chain after which Newlink 
is to be added. The linkage values are relative pointers to the linkage record. ENQUEUE assumes that the queue 
has been initialized as a circular chain and that the caller has exclusive access while the chain is being modified. 


B_sysarea must contain the address of the free space pool header; refer to the GETSPACE Function, Section 
2.2.2.1, for more information. 


2.4.3.2 DEQUEUE Procedure 
procedure DEQUEUE (var Link:linkage; B_sysarea:absptr) 


Input Parameters: 
Link: Linkage record to be removed from the queue. 
B_sysarea: Address ordinal of the data area base. 


DEQUEUE removes a Request Block from a queue. DEQUEUE assumes that the queue has been initialized as a 
circular chain and that the caller has exclusive access while the chain is being modified. 


B_sysarea must contain the address of the free space pool header; refer to the GETSPACE Function, Section 
2.2.2.1, for more information. 


2.4.3.3 CHAIN FORWARD Function 
function CHAIN_ FORWARD (Current:linkage):reqptr_type 


Input Parameters: 
Current: Linkage record of old Request Block. 


Output Parameters: 
CHAIN FORWARD: Pointer to new Request Block. 


CHAIN_FORWARD uses the forward link of the linkage record to point to the next Request Block in the queue so 
that your driver can initiate the next I/O request for the device. 


For non-disk drivers, the following steps should be performed when the current I/O request is complete: 
1. Call UNBLK_RE@Q for the request you just completed. 
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2. Call CHAIN FORWARD to get the next Request Block in the 
queue linked to the Device Control Block. 
3. Start the next I/O request. 


For disk drivers, calllODONE to perform these steps. 


2.5 DISK DRIVER SUPPORT 


The Lisa Operating System provides special utility routines for disk drivers: USE_HDISK, CALL_HDISK, 
IODONE, and OKXFERNEXT. These routines make subroutine calls into the HDISK unit (listed in Appendix A). 
Only disk drivers may use these routines. 


o USE_HDISK notifies the OS that your driver wants to use CALL_HDISK. Your disk driver must call 
USE_HDISK once, before calling CALL_HDISK, each time the driver is initialized (Dinit function code). 


o CALL_HDISK performs the functions associated with the Dinit, Ddown, Dskio, and Reqrestart 
function codes. Whenever you disk driver gets called with function code, it should call CALL_HDISK to 
perform these functions. 


CALL_HDISK may be used only with a disk device with Lisa-format sectors. These are 512-byte sectors 
preceded by a sector header in pagelabel format (see the pagelabel format record in Driverdefs, listed in 
Appendix A). 


o IODONE unblocks the current completed I/O request, takes the next request from the device's Request 
Block queue, and initiates it. 


o OKXFERNEXT updates and verifies the sector header for each block transferred to or from the disk. Your 
driver calls it after transferring each 512-byte block. 


2.5.1 USE HDISK Procedure 
procedure USE_HDISK (Configpir:ptrdevrec) 


Input Parameters: 
Configptr: Points to Device Configuration Record for the hard disk device. 


USE_HDISK does initialization for a disk driver. The disk device must use Lisa-format sectors. Your disk driver should 
call USE_HDISK during the driver's Dinit routine. 


2.5.2 CALL_HDISK Procedure 
procedure CALL_HDISK (var Error:integer; Configptr:ptrdevrec; Parameters:param_ptr) 


Input Parameters: 
Configptr: Points to Device Configuration Record. 
Parameters: Parameter list that was passed to the driver. 


Output Parameters: 
Error: Indicates result of CALL_HDISK operation. 


CALL_HDISK calls the HDISKIO routine in the HDISK unit to support the driver's Dinit, Ddown, Dskio, and 


Reqrestart functions. The driver must take the Error value returned by CALL_HDISK and assign it to the driver's 
function result before returning. 
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2.5.3 IODONE Procedure 
procedure IODONE (Port_pitr:hdskcb_ptr; Prev_err:integer) 


Input Parameters: 
Port_ptr: Points to Device Control Block. 
Prev_err: Contains completion error. 


Your driver must call lODONE after it finishes servicing an I/O request in order to finish processing the request and 
initiate the next request. 


2.5.4 OKXFERNEXT Function 
function OKXFERNEXT (Port_ptr:hdiskcb_ptr):integer 


Input Parameters: 
Port_ptr: Points to Device Control Block. 
Output Parameters: 
OKXFERNEXT: Zero if successful, else error code. 


OKXFERNEXT updates the File System sector headers and data pointers and tests to see whether another sector 
can be transferred. If any errors are found in the sector just transferred, the transfer is terminated and OKXFERNEXT 
returns a nonzero error code. If a new transfer can be initiated, OKXFERNEXT returns zero. 


2.6 DRIVER-INITIATED I/O REQUESTS 


Your driver may not be able to complete a requested operation immediately because it takes time for the device to 
perform the operation. This is true when function codes Dinit, Dcontrol, and Dskformat are invoked and call 
BLK_REQ to wait for I/O to complete. READ_DATA and WRITE_DATA call the OS to do deferred-request 
management for the driver, calling Seqio or Dskio in the driver when needed; in other cases the driver has to perform 
these operations for itself. 


To defer an I/O request, follow this procedure: 
1. Call GETSPACE to create an I/O Request Block. 


2. Call LINK_TO_PCB to initialize the Request Block and link it to the Process Control Block of the active 
process. 


3. Call CVT_BUFF_ADDR to convert the I/O buffer address (if any) to a format the interrupt handler can use. 
4. Call BLK_REQ to wait until the I/O request has been serviced. 


5. When your request is unblocked by the Scheduler, call CANCEL_REQ to unlink the Request Block from the 
Process Control Block and return its space to the free space pool. 


When managing your own Request Blocks, you will need to call INTSOFF, INTSON, ENQUEUE, UNBLK_REQ, 
and possibly ADJ_IO_CNT, FREEZE _SEG, and UNFREEZE_SEG, described in this chapter. 


2.6.1 LINK_TO_PCB Procedure 
procedure LINK_TO_PCB (Req_ptr:reqpitr_type) 
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Input Parameters: 
Req_ptr: Pointer to the new Request Block. 


LINK_TO_PCB takes a Request Block created using GETSPACE, initializes several standard fields, and links the 
Request Block to the Process Control Block of the currently active process. (The Reqspec_ info field is not 
initialized.) 


2.6.2 CVT_BUFF_ADDR Procedure 
procedure CVT_BUFF_ADDR (var Errnum:int2; Mem_writeF:boolean; Buffaddr:absptr; 
Byte_cnt:int4; var Ordsdb:abspir; var Offset:int4) 


Input Parameters: 
Mem_writeF: True if transfer from device to memory. 
Buffaddr: Address to be converted. 
Byte_cnt: Number of bytes to transfer to or from memory. 


Output Parameters: 
Errnum: Zero if successful conversion; else nonzero. 
Ordsdb: Pointer to the data segment that includes Buffaddr. 
Offset: Relative offset within the data segment. 


CVT_BUFF_ADDR takes an address in the application program's address space and breaks it into two parts: a 
pointer to the data segment descriptor and an offset within the data segment. Interrupt handlers need this form of 
address to access the user's data when it is not currently mapped by the Memory Management Unit hardware. 
CVT_BUFF_ADDR also verifies that the requested I/O operation is valid for the specified data segment; for 
instance, you can't pass an address within a program as the destination for a read operation. 


2.6.3 BLK_REQ Procedure 
procedure BLK_REQ (Regqpir:reqptr_type; var First_reqptr:reqptr_type) 


Input Parameters: 
Regqptr: Pointer to list of requests to wait for. 


Output Parameters: 
First_reqptr: Pointer to list of completed results. 


When BLK_REQ is called, the current process is blocked until any of the requests passed to BLK_REQ has 
completed. (Request completion is signaled when the driver calls UNBLK_REQ.) 


Reqptr points to a linked list of I/O Request Blocks representing events whose completion the current process must 
await. First_reqpitr points to a linked list of completed I/O requests, in the order in which they were completed. 


2.6.4 CANCEL REQ Procedure 
procedure CANCEL_REQ (Req:reqpir_type) 


Input Parameters: 
Req: Pointer to Request Block to cancel. 


CANCEL_REQ unlinks the specified Request Block from its Process Control Block and releases its space back to 
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the free space pool. 


2.7 MISCELLANEOUS SUBROUTINES 


This section contains information on routines that 
o report fatal errors -- SYSTEM_ERROR. 
o detect availability of the System_Log file -- LOGGING. 
o log data into the System_Log file -- LOG. 
o test a byte using a bit mask -- ALLSET. 
0 call a device driver from a demultiplexing driver -- CALLDRIVER. 
o synchronize access to the parallel port -- DISKSYNC. 
o detect pressing of disk buttons and switches -- KEYPUSHED. 


2.7.1 SYSTEM_ERROR Procedure 
procedure SYSTEM_ERROR (Errnum:integer) 


Input Parameters: 
Errnum: Error code provided by the driver. 


When a driver encounters an error condition so serious that it cannot continue, it should call SYSTEM_ERROR, 
which uses Errnum to pass an error code from the driver to the Operating System; SYSTEM_ERROR does not 
return to the driver. Do not use SYSTEM_ERROR ff an error code can be returned to the caller. 


The value of Errnum should be 10,000 plus the driver error number. 


2.7.2 LOGGING Function 
function LOGGING: boolean 


Output Parameters: 
LOGGING: True if system logging is operational; else false. 


Before logging an entry using the LOG procedure, use the LOGGING function to determine whether system logging 
is available. If logging is not available, LOG should not be called. 


2.7.3 LOG Procedure 
procedure LOG (var Errnum:integer; Ptr_arr:absptr) 


Input Parameters: 
Ptr_arr: Pointer to 12 bytes of data to be logged. 


Output Parameters: 
Errnum: Error code. 


The LOG procedure allows you to make a 12-byte entry in the System.Log file if logging is active. The procedure 
may be used to log disk errors. The data to be logged may be in any format. 


Before calling LOG, you should determine whether logging is available by calling the LOGGING function. 


2.7.4 ALLSET Function 
function ALLSET (Source, Target:int1):boolean 
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Input Parameters: 
Source: Mask bits. 
Target: Bits to be tested. 


Output Parameters: 
ALLSET: True if all mask bits are set in target; else false. 


ALLSET determines whether all the bits in Source are on (set to one) in Target. Target is a byte in which each bit 
has separate significance; for instance, the status register for a device. Source is a mask byte. If the integer value of 
Target is 7 (00000111) and the integer value of Source is 3 (0000011), ALLSET returns true. (If the value of 
Source is zero, ALLSET returns true.) 


2.7.5 CALLDRIVER Procedure 
procedure CALLDRIVER (var Errnum:integer; Config_ptr:ptrdevrec; Parameters:param_ptr) 


Input Parameters: 
Config_ptr: Pointer to the Device Configuration Record for the device. 
Parameters: Variant record containing driver parameters. 


Output Parameters: 
Errnum: Depends upon Parameters. 


CALLDRIVER is used by a demultiplexing driver to call a lower-level driver with an interrupt intended for its device. 
The device driver must previously have been associated with the demultiplexing driver by means of the Dattach 
function code. 


2.7.6 DISKSYNC Procedure 
procedure DISKSYNC (Busy:boolean) 


Input Parameters: 
Busy: True if built-in parallel port is busy; False if port is free. 


The built-in parallel port (Hard Disk VIA) is shared by the disk driver, printer driver, and video contrast control routines. 

All device drivers using this port must synchronize their access to it by calling DISKS YNC before and after each use of 
the port. When the port is free, the contrast control routines are able to modify and then restore the registers in the 
6522 VIA. 


HDISK calls DISKSYNC for disk drivers performing reads and writes. However, when a disk driver is formatting or 
initializing the built-in parallel port, it must call DISKSYNC itself. 


To gain control of the built-in parallel port, call DISKS YNC with Busy set to true before doing I/O; when the I/O has 
completed, call DISKSYNC again with Busy set to false. (The port is initially free.) 


It is not necessary to call DISKS YNC when accessing a parallel port in one of the Lisa's three I/O expansion slots. 
Only the built-in parallel port needs this synchronization. 


2.7.7 KEYPUSHED Procedure 
procedure KEYPUSHED (Key:0..127) 
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Input Parameters: 
Key: Keycode of the pseudo-key that was pressed. 


The disk insertion switches, the disk eject buttons, and the power button -- collectively known as pseudo-keys -- are 
not detected by the normal keyboard driver. Drivers that detect these switches and buttons must call the 
KEYPUSHED procedure each time a pseudo-key is pressed. You must identify the pseudo-key that was pressed by 
setting Key to one of the keycode values shown below: 


Keycode Meaning 


1 disk was inserted in disk 1 

2 disk 1 eject button was pressed 

3 disk was inserted in disk 2 

4 disk 2 eject button was pressed 

11 disk was inserted in built-in Sony drive 
12 disk was inserted in slot 1 device 

13 disk was inserted in slot 2 device 

14 disk was inserted in slot 3 device 
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DRIVER FUNCTION CODES 


3.1 INVOKING THE DRIVER 


A driver is invoked directly by the Operating System or by another driver through the CALLDRIVER procedure 
(described in Section 2.7.5). Every time the driver is invoked, it must perform a specific operation as specified in the 
function code -- the Fnctn_code field of the Params record that is passed to the driver. This chapter describes the 
operations that must be performed for each function code. 


If your driver receives a function code that it does not recognize, it should return with error number 656 in its function 
result. 


The Params record is passed to the driver no matter which function code is invoked; therefore it is not listed in the 
documentation for each function code. The parameters that are shown in curly brackets under the function code are 
those that are passed to the driver in addition to Params. 


The format of the Params record differs depending on the function code; it always contains a pointer to the Device 
Configuration Record for the device as well as the function code itself. 


For device-independent applications that call READ_DATA and WRITE_DATA, standard driver function codes are 
provided. For nonstandard devices (those that cannot be supported through the File System) or nonstandard 
applications, a mechanism is provided for the application to communicate all I/O requests directly to the driver using 
DEVICE CONTROL. In this case the driver must respond to the Deontrol function code and must perform its own 
Request Block management. Standard drivers may on occasion call DEVICE_CONTROL to perform functions such 
as setting baud rate or acquiring status information. 


To improve performance, routines that process driver function codes (for example, Dinterrupt, which may require fast 
execution) may be written in assembler language rather than Pascal. 


When Apple integrates networks into the Lisa Operating System, new function codes may be added for handling 
network-specific functions. 


3.2 DRIVER OPERATIONS 

There are certain operations that are standard for each driver type: sequential, disk, demultiplexing, and non-File 
System. Requests for these operations are signaled to the driver by means of the driver function code. Errors the 
driver encounters while processing a request are reported in the driver function result. 


3.2.1 Driver Types and their Function Codes 
Table 3-1 is a list of driver function codes and the operations they represent by type. 


Table 3-1 
Driver Operations 


Dinterrupt............... Handle a device interrupt 

PDI tase tee seni: cegtanvevess Initialize a driver and its associated device 
DdOwn..........:::cceee Shut down a driver and its associated device 
Deontrol............0005 Send or receive device-dependent information 
Reqrestart............ Restart an I/O request 
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Dalarms............0 Handle an alarm interrupt 


FUNCTION CODES FOR SEQUENTIAL DEVICE DRIVERS: 
SEQ ete Input/output to a sequential device 
Ddiscon.............:065 Disconnect modem 


FUNCTION CODES FOR DISK DEVICE DRIVERS: 


DSKiO..........cccceeeeeeees Start I/O to a disk device 

Dskunclamp........... Eject a disk from the disk device 
Dskformat............... Format a disk 

Hdinit............cceeeeeeees Initialize a disk device driver 

Hddown............2006 Shut down a disk driver and its associated device 
Hdski0............cc000000 Transfer data to or from a disk device 


FUNCTION CODES FOR DEMULTIPLEXING DRIVERS: 
Dattach........... Associate a driver with this demultiplexing driver 
Dunattach............ Dissociate a driver from this demultiplexing driver 


A driver needs to handle only a subset of the standard driver operations. Table 3-2 indicates which driver types must 
handle each function code. The table also contains information about privilege state, interrupt disabling, and error 
code requirements for each function code. 


Table 3-2 
Characteristics of Driver Operations 


(1) (2) (3) (4) (5) 


FUNCTION PRIVILEGE DISABLE ERR CODE DRIVER TYPE 
CODE STATE INTERRUPTS REQUIRED SEQ DISK DEMX NON-FS 
Dinterrupt Supervisor No No R R R O 
Dinit User Yes Yes R R R R 
Ddown User Yes Yes R H R R 
Dcontrol User Yes Yes O O R 
Reqrestart User Yes No R H O 
DalarmsSupervisor No No O O O 

Seqio User Yes Yes R 

Ddiscon User Yes No O O 
Dskio User Yes Yes H 

Dskunclamp — User Yes Yes O 

Dskformat User Yes Yes O 

Hdinit User No Yes R 

Hddown User No Yes R 

Hdskio Either No Yes R 

DattachUser Yes Yes R 

Dunattach User Yes No R 


Column (5): H=HDISK, O=Optional, R=Required 


The columns of Table 3-2 contain the following information: 


(1) FUNCTION CODE is the identifier assigned to this operation in Driverdefs (see Appendix A). The function codes 
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are summarized in Table 3-1 and documented in this chapter. 


(2) PRIVILEGE STATE indicates the setting of the S bit in the processor's status register. Certain assembler language 
instructions are privileged and may be executed only in supervisor state. Your driver should not use privileged 
instructions to process a function code if the operations will be performed in user state. 


(3) DISABLE INTERRUPTS is Yes if the driver must call INTS OFF to protect the Device Control Block from being 
modified by another interrupt while the driver is executing. The call to INTSOFF should set the priority just high 
enough to prevent interrupts from the driver's device. Before returning, your driver must call INTSON to restore the 
interrupt status to its previous priority level. 


Note that when the Dalarms function is invoked, the interrupt priority has already been set to the value that was 
established in the driver's prior call to ALARM_ASSIGN. 


(4) ERR CODE REQUIRED is Yes if the driver must return a value in the integer function-result of the driver function. If 
an error code is not required, the function result need not be assigned a value. 


(5) DRIVER TYPE indicates which function codes a given driver needs to support the types are the following: 


SEQ Sequential device drivers 

DISK Disk device drivers 

DEMX Demultiplexing drivers 

NON-FS Non-File System drivers that use Dcontrol for I/O 


The letters under each driver type indicate whether the driver must support the function code: 


H The HDISK unit supports this operation 
O Optional for this device type (see detailed description of the function code for more information) 
R Required for this device type 


3.2.2 Error Codes 


Your driver may return an error number in the driver function result. If your driver receives a function code that it does 

not recognize, it should return with error number 656 in its function result. In the case of Dinterrupt, Dalarms, and 
Reqrestart, the error number should be placed in the Hard_error field of the Request Block. In the case of a non- 
recoverable data inconsistency, the error should be signaled by calling SYSTEM_ERROR. 


Standard error numbers are indicated throughout this chapter. The following standard error numbers apply to all device 
types: 


660 Cable disconnected. 
666 Device timeout. 


You are free to use other error numbers in the range 1840 to 1879 to represent particular conditions your driver 
expects to encounter. Warningsare indicated by a negative error number in the range -1879 to -1840. A warning 
means that the operation was successfully completed under special circumstances. System errorsreported by your 
driver must be in the range 11840 to 11879. 


3.3 FUNCTION CODES SHARED BY DIFFERENT DRIVER TYPES 
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The function codes described in this section are used by drivers of differing type. These function codes are 
Dinterrupt, Dinit, Ddown, Dcontrol, Reqrestart, and Dalarms. 


3.3.1 DINTERRUPT Driver Function Code 
function code Dinterrupt 
{Intpar: integer} 
Parameters: 
Intpar: For Serial A & B, contains the interrupt type. 


Operation: Handle a device interrupt 
Drivers: SEQ (R), DISK (R), DEMX (R), NON-FS (R) 
Privilege State: Supervisor 

Must Disable Interrupts: No 

Error Code: Not required 


Your driver is called with the Dinterrupt function code when there is an interrupt for it to handle. For most devices, 
Intpar is zero and has no meaning. For Serial A or Serial B interrupts, Intpar contains a value between 0 and 3 
representing the type of interrupt (refer to read-register 2B in the SCC manual). 


For demultiplexing drivers, Dinterrupt signals you to find out from the interrupting controller which of its several 
devices is the source of the interrupt. You must then invoke its device driver to handle the interrupt by passing the 
same parameter list the demultiplexing driver was called with using the CALLDRIVER procedure. 


Your interrupt handler for the device must: 


o Signal the device to clear the interrupt. 

o Perform the desired I/O transfer. 

o Call OKXFERNEXT (disk devices only). 
o Return. 


The I/O request may require several I/O transfers. When the request has been completed, or if an error was detected, 
your interrupt handler should calllODONE if your driver supports a disk device; for other device types, it should: 


o Call UNBLK_REQ to unblock the process that is waiting for I/O. 

o Call ADJ_1O_CNT to reduce the count of pending I/O requests for the data segment. 
o DE QUEUE the Request Block from the Device Control Block. 

o If another Request Block for this device is on the queue, initiate the I/O. 

o Return. 


3.3.2 DINIT Driver Function Code 
function code Dinit 


Operation: Initialize a driver 

Drivers: SEQ (R), DISK (R), DEMX (R), NON-FS (R) 
Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


For the boot device or a device that is configured to be pre-loaded, Dinit is invoked during startup. For other devices it 
is called wither at the time the device is mounted or prior to calling Dcontrol, Dskunclamp, or Dskformat for 
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unmounted devices. 
To initialize your device driver, you must: 


o Call GETSPACE to acquire space for the driver's Device Control Block (its global data). 

o Store the address of the Device Control Block into Parameters’.Configptr’.Cb_addr. 

o Initialize the Device Control Block. 

o Call ALARM_ASSIGN to reserve any alarms that will be needed while the driver is running. Save the alarm 
numbers that have been assigned to this device during initialization. (You must reserve space for this 
purpose in the Device Control Block.) 

o Prepare the device hardware for operation. This may involve programming the controller's hardware 
registers, reading the device's version number, and so on. 

If the driver encounters an error during initialization, it should reverse the initialization procedure so that the device and 
associated control blocks are returned to the state they were in when the driver was invoked with Dinit function code. 
The function result of the driver should be set to reflect the nature of the error: 

o Error 602 means that alarms were not available from ALARM_ASSIGN. 

o Error 610 means that memory was not available from GETSPACE. 

For disk devices that are supported by the Operating System HDISK unit (see Section 2.5, Disk Driver Support), your 
driver should not perform the functions listed above. Instead: 

o CallUSE_HDISK 

o Call CALL_HDISK 

HDISK will then invoke your driver with function code Hdinit to request disk driver initialization. 


3.3.3 DDOWN Driver Function Code 
function code Ddown 


Operation: Shut down a device 

Drivers: SEQ (R), DISK (H), DEMX (R), NON-FS (R) 
Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


For devices that are configured to be dynamically loaded and unloaded, Ddown is invoked during unmounting unless 
the Characteristics file for the device specifies that the device is to be permanently mounted. (Chapter 5 tells you how 
to specify characteristics.) Ddown tells your driver to undo everything it did in Dinit. 


Return with Error 60? if the driver is waiting for I/O at the time Ddown is invoked. Otherwise do the following: 
o Call RELSPACE to release the space for the driver's Device Control Block. 
o Set the address of the Device Control Block in Parameters’.Configptr4.Cb_addr to ord(nil). 
o Cal ALARMRETURN to release any alarms that were assigned to the driver. 
o Set the device hardware so that it cannot generate an interrupt until Dinit is called again. 


3.3.4 DCONTROL Driver Function Code 
function code Dcontrol 
{Parptr: absptr} 
Parameters: 
Parptr: Address of a Device Control Record 


Operation: Send or receive device-dependent information 
Drivers: SEQ (O), DISK (O), NON-FS (O) 
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Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 


For sequential and disk devices, your driver needs to support the Dcontrol function code only if application programs 
will access this device by calling the DEVICE_CONTROL procedure. The application program provides 

DEVICE CONTROL with a pointer to the Device Control Record, and DEVICE_CONTROL passes the record to 
the driver with the Dcontrol function code. 


Refer to the Operating System Reference Manual for the Lisafor information on the DEVICE_CONTROL File 
System call. (Note that the Detype record described in that manual is the same as the Dc_rec shown below.) If you 
want your driver to be compatible with similar existing OS drivers, support all the DEVICE_CONTROL operations 
documented for that device type in the Operating System Reference Manual. 


Parptr is the address of the Device Control Record, Dc_rec, defined below. The driver and the application program 
must agree upon the use of the Device Control Record; its contents are not checked by the DEVICE_ CONTROL 
procedure. 


Dc_rec = record 
Dversion: integer; 
Dcode: integer; 
Ar10: array[0..9] of longint; 
end; 


Dversion is used for application-defined version control between the driver and the application program. Decode tells 
your driver what status information to get from its device or what control information to send. The Ar10 array is used to 
pass additional device information between the application program that calls DEVICE CONTROL and the device 
driver. 


Dcontrol may be used for configuring operational characteristics of the driver, such as the baud rate. 


lf Decode requests I/O, your driver must perform the following operations (refer to Section 2.6, Driver-initiated I/O 
Requests, for more information): 
o Create its own Request Block 
o Define a Request Block Extension containing whatever information is needed. 
oCalCVT_BUFF_ADDR,ADJ_1O_ CNT, andFREEZE_SEG to freeze the user's data buffer. 
o Call BLK_REQ to wait until the I/O has completed. 
Return error 623 if the contents of Dc_rec are not valid for the device. 


3.3.5 REQRESTART Driver Function Code 
function code Reqrestart 
{Req: reqptr_type} 
Parameters: 
Req: Pointer to Request Block passed to FREEZE_SEG 


Operation: Restart an I/O request 
Drivers: SEQ (R), DISK (H), NON-FS (O) 
Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Not required 
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Reqrestart is required by all drivers of sequential or disk devices and by non-File System device drivers that call 
FREEZE_SEG. Regqrestart is invoked by the OS Memory Manager to restart the driver from the point at which a 
FREEZE_SEG request failed because the data was being relocated in memory. If you call FREEZE_SEG from 
more than one place in your driver, you must set a flag to indicate where Reqrestart must restart. 


If your driver uses HDISK, callC ALL_HDISK when you are passed a Reqrestart function code. 


3.3.6 DALARMS Driver Function Code 
function code Dalarms 
{Intpar: integer} 
Parameters: 
Intoar: Alarm number 


Operation: Handle an alarm interrupt 
Drivers: SEQ (O), DISK (O), NON-FS (O) 
Privilege State: Supervisor 

Must Disable Interrupts: No 

Error Code: Not required 


Your driver needs to respond to the Dalarmss function code only if the driver calls ALARMRELATIVE. Dalarms is 
invoked when an alarm set by ALARMRELATIVE goes off. Intpar contains the alarm number. 


Alarms can be used to handle interrupts that require a long time to process. See Lengthy Interrupt Processing, 
Section 2.3.4. 


3.4 FUNCTION CODES FOR SEQUENTIAL DEVICES 


The following function-codes are called only for drivers of sequential devices. Sequential devices are accessed as a 
sequence of bytes; their drivers make no provision for storing and retrieving files at different locations on the device. 
Applications that require sequential device drivers include data communications and printing. 


3.4.1 SEQIO Driver Function Code 
function code Seqio 
{Req: reqptr_type} 
Parameters: 
Req: Pointer to the I/O Request Block. 


Operation: Input/output to a sequential device 
Drivers: SEQ (R) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


Seqio is invoked during I/O to a sequential device when READ_DATA or WRITE_DATA is called to transfer a 
sequence of bytes from or to a sequential device. Req points to an initialized I/O Request Block as described in 
Request Block initialization, Section 2.4.1. Seqio must call ENQUEUE to place the Request Block at the end of the 
Request Block queue for the device. If there are no other requests currently in progress, the driver can then initiate 
the I/O transfer for this request. If another I/O request for the device is in progress, the driver will initiate the I/O transfer 
for this request when it completes all prior requests in the queue. 
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3.4.2 DDISCON Driver Function Code 
function code Ddiscon 


Operation: Modem disconnect 
Drivers: SEQ (O), NON-FS (OQ) 
Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Not required 


Ddiscon is invoked when CLOSE_OBJECT is called for a sequential device or when a process aborts without 
closing an open sequential device. If your driver controls a device attached to a modem, disconnect the modem from 
the line. For other sequential devices, your driver should return immediately after receiving the Ddiscon function 
code. 


Note that the driver is not called during OPEN for sequential devices. The application program should initialize modem 
control by calling DEVICE CONTROL from the application program when opening the device. 


3.5 FUNCTION CODES FOR DISK DEVICES 


The operations described in this section are performed only by drivers of Lisa-format random-access disk devices. 


Most disk devices can use the facilities of the HDISK unit in the Operating System to perform the standard operations 
required for function codes Dinit, Ddown, Reqrestart, and Dskio. (See Appendix A for a listing of HDISK.) 
These operations include managing the Request Block queue and processing the File System headers that precede 
each 512-byte block of data on the disk. HDISK contains the six routines described below. 


Called directly by the disk driver (described in Chapter 2): 


o XFERINIT 
o l|ODONE 


Called by the OS when the disk driver calls CALL_HDISK (your driver should pass to CALL_HDISK the same 
parameters with which it was called): 


o INIT for Dinit function code 

o DOWN for Ddown function code 

o REQRESTART for Reqrestart function code 
o DSKIO for Dskio function code 


Standard error numbers for disk drivers are: 


606 Can't find sector (disk may be unformatted). 

614 No disk present in drive. 

617 Checksum error in data -- no data returned. 

616 Cannot format disk. 

654 Unspecified hard I/O from disk controller. 

-663 Read with data returned -- some data may be okay, but a checksum, CRC, or parity error was 
detected. 


1824 Write failed. 
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3.5.1 DSKIO Driver Function Code 
function code Dskio 


{Req: reqptr_type} 


Parameters: 
Req: Pointer to the I/O Request Block. 


Operation: Input/output to a disk device 
Drivers: DISK (H) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


Dskio is invoked by READ_DATA and WRITE_DATA to access a disk file. The File System also invokes this 
function to maintain its internal directory structures while performing file operations such as OPEN and 
CLOSE_OBJECT. Req points to an initialized I/O Request Block. 


When Dskio is invoked, your driver should call CALL_HDISK, passing it the parameters with which it was invoked. 
CALL_HDISK will then invoke HDISK to handle the I/O request. 


3.5.2 DSKUNCLAMP Driver Function Code 
function code Dskunclamp 


Operation: Eject a disk from the disk drive 
Drivers: DISK (OQ) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


If the disk device has a removable disk, eject the disk when Dskunclamp is invoked; otherwise return immediately 
with error 685. 


If the device will send an interrupt to signal that the eject has completed, it may be necessary for Dskunclamp to 
create a Request Block. Refer to Section 2.6, Driver-initiated I/O Requests. 


3.5.3 DSKFORMAT Driver Function Code 
function code Dskformat 


Operation: Format a disk device 
Drivers: DISK (OQ) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


Your driver needs to handle this function code only if the disk device formats its media; otherwise the driver may return 
immediately. Dskformat may be invoked when the user mounts a disk that cannot be read or when the application 
receives a request to erase everything on the disk. 


Dskformat initiates the format operation by signaling the device's intelligent controller. The driver must create a 
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Request Block for this operation and call BLK_REQ to wait until the format operation has completed. Refer to 
Section 2.6, Driver-initiated I/O Requests. 


3.5.4 HDINIT Driver Function Code 
function code Hdinit 
{Req: reqptr_type} 


Operation: Initialize a disk device-driver 
Drivers: DISK (R) 

Privilege State: User 

Must Disable Interrupts: No 

Error Code: Required 


Hdinit is invoked by the INIT routine within HDISK. Your disk driver must perform the following operations when 
invoked with the Hdinit function code: 


To initialize your device driver, you must: 

o CallGETSPACE to acquire space for the driver's Device Control Block extension. 

o Store the address of the extension in the Ext_ptr field of the Device Control Block. 

o Call ALARM_ASSIGN to reserve any alarms that will be needed while the driver is running. Save the alarm 
numbers that have been assigned to this device during initialization. (You must reserve space for this purpose in 
the Device Control Block.) 

O Initialize the disk controller hardware so that read and write commands can be sent. 


If the driver encounters an error during initialization, it should reverse the initialization procedure so that the device and 
associated control blocks are returned to the state they were in when the driver was invoked with Hdinit function 
code. The function result of the driver should be set to reflect the nature of the error: 

o Error 602 means that alarms were not available fom ALARM_ASSIGN. 

o Error 610 means that memory was not available from GETSPACE. 


3.5.5 HDDOWN Driver Function Code 
function code Hddown 
{Req: reqptr_type} 


Operation: Shut down a disk device 
Drivers: DISK (R) 

Privilege State: User 

Must Disable Interrupts: No 

Error Code: Required 


HDISK invokes Hddown so that your driver can undo everything it did in Hdinit: 


o Call RELSPACE to release the space for the driver's Device Control Block extension. 

o Set the address of the Device Control Block extension in Ext_ptr to ord(nil). 

o Cal ALARMRETURN bo release any alarms that were assigned to the driver. 

o Set the disk device controller so that it cannot generate an interrupt until Hdinit is invoked again. 


3.5.6 HDSKIO Driver Function Code 


function code Hdskio 
{C_cmd: integer; C_sector: longint} 
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Parameters: 
C_cmd: 
C_ sector: 


Operation: Perform an I/O transfer 
Drivers: DISK (R) 

Privilege State: User 

Must Disable Interrupts: No 

Error Code: Required 


HDISK invokes the disk driver with function code Hdskio to begin an I/O transfer; that is, Hdskio reads or writes a 
group of contiguous 512-byte blocks. Options in the lo_mode field of the Request Block extension allow you to 
transfer the blocks with or without their 24-byte headers. lo_mode options are described in Section 2.4.1, Request 
Block Initialization. Headers are described in the Pagelabel type in Driverdefs, listed in Appendix A. 


During each interrupt of the I/O transfer, your driver must call OK XFERNEXT to update the headers; when the 
transfer is complete, it must call lODONE. (See Disk Driver Support, Section 2.5, for further information.) 


3.7 FUNCTION CODES FOR DEMULTIPLEXING DRIVERS 


The operations described in this section are performed only by demultiplexing drivers -- those that call lower-level 
drivers. See Chapter 1 for a description of driver hierarchy and the role of demultiplexing drivers. 
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3.6.1 DATTACH Driver Function Code 
function code Dattach 
{N_configptr: ptrdevrec} 


Parameters: 
N_configptr: Pointer to Device Configuration Record of new device. 


Operation: Associate a driver with this demultiplexing driver 
Drivers: DEMX (R) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 


Demultiplexing drivers are drivers that dispatch interrupts for more than one device. (See Figure 1-4, Communication 
between Drivers.) Dattach enables the demultiplexing driver to service the interrupts of the devices whose drivers it 
attaches. In general, Dattach is invoked immediately after the Dinit call to the demultiplexing driver. Then, as each of 
its devices gets initialized, the demultiplexing driver is invoked with Dattach to attach the device driver for the new 
device. That is, Dattach is invoked once for each device associated with the demultiplexing driver. 


When an interrupt for an attached device is received, the demultiplexing driver calls the lower-level driver using the 
CALLDRIVER procedure described in Chapter 2. 


N_configptr points to the Device Configuration Record of a new device being attached to this driver. 


3.6.2 DUNATTACH Driver Function Code 
function code Dunattach 
{O_configptr: ptrdevrec; Still_inuse: boolean} 


Parameters: 
O_configptr: Pointer to Device Configuration Record of new device. 
Still_inuse: True if other devices remain attached; False if none. 


Operation: Disassociate a driver from this demultiplexing driver 
Drivers: DEMX (R) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Not required 


Dunattach is invoked when a device associated with the demultiplexing driver is invoked with Ddown function code. 
O_configptr points to the Device Configuration Record for the device being disassociated. 


Dunattach must set Still_inuse to true if other devices remain attached to the demultiplexing driver. If no devices 
remain attached, Still_inuse must be set to false so the calling routine can invoke Ddown. 


3.7 DRIVERS FOR BOOTABLE DEVICES 


{ To be documented by Jay Walton. 


By the time we release the alpha draft (around 1/11/84), we should have a definite decision on 
whether configurable drivers for bootable devices will be supported for spring release. 
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Please advise.} 
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HARDWARE INTERFACE 


Chapter 4 supplements the Lisa Hardware Manual and Lisa Theory of Operations with hardware documentation 
relevant to device drivers. You need to become familiar only with those sections of the chapter that contain information 
about the particular device interface your driver uses. 


4.1 SYSTEM CLOCK RATES 

The 68000 is driven by a 20.375 MHz crystal divided by 4, yielding a 5.09375 MHz clock; the clock rate is therefore one 
cycle every 196.319 nanoseconds, while it may be impossible to compute exact execution times, you can use this 
clock to compute an approximate execution time for a given section of code. 


Your calculation should round up the published 68000 instruction execution-cycle times to a value n+x (where n is the 
number of cycles and x is 0, 1, 2, or 3) such that n+x is a multiple of 4. Rounding is necessary because of wait states 
the Lisa uses to handle the video memory. The pipeline architecture of the 68000, which pre-fetches instructions, 
makes even this calculation imprecise. In addition, when accessing the address space of a 6522, the 68000 inserts 
wait states in order to synchronize with the 6522 clock. 


4.2 THE SERIAL COMMUNICATIONS CONTROLLER (SCC) 
The Serial Communications Controller is described in Zilog's SCC Technical Manual. The Lisa Hardware Manual 
(Sections 2.5.2, 3.5.1, and 6.4) also includes information about the operation of the SCC in Lisa. 


4.2.1. SCC Timing 
Two consecutive accesses to the control register address are necessary to read or write data to internal registers 1 
through 15. Therefore you should disable SCC interrupts during consecutive accesses. 


The 68000 CLR instruction accesses the target address twice during a single instruction. The Lisa's Assembler 
optimizes the MOVE #0 instruction to CLR. Therefore don't use CLR or MOVE #0 instructions when writing to the 
SCC. The Lisa's Pascal Compiler generates a CLR instruction when you assign Zero to a variable. Therefore if you 
code an SCC interface in Pascal, do not assign zero directly to an SCC control register; first assign zero to a variable, 
then assign the variable to the SCC address. 


A recovery time of 6 CPU cycles is required between consecutive accesses. The Pascal Compiler usually generates 
code that provides sufficient recovery time. However, if you use WITH statements to optimize SCC accesses, you may 
need to insert some delay between accesses. 


If your driver is written in assembler language, provide recovery time by inserting one or two NOP instructions between 
contiguous instructions that access the SCC. 


4.2.2 Other Information Related to the SCC 
Asynchronous I/O can occur on either port A or B. The following characteristics are unique to each port: 


o Port A 
Oo accomodates synchronous communications. 
0 accomodates SDLC/HDLC. 
o provides full RS-232C modem control. 


o Port B 
oO accomodates Applebus. 


4.2.2.1 Cable Connections 
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The Lisa Hardware Manual (Figure 3-7) shows the cable signals for the DB-25 connector. Cable signal names are the 
same as SCC Pin names except for the following: 


CABLE SIGNAL CONNECTS TO SCC PIN 

RxC(A) RTxCA 

TEXT(A) & TxC(A) TRxCA 

DSR(A) SYNCA (and DCDB on hardware after 1.0) 
DSR(B) CTSB/ 


Apple's modem eliminator cable connects the following signals (dashed lines indicate wires; arrows show the direction 
of information flow along the wires): 


GROUND --------------------- GROUND 
SEND ------------------------ > RECEIVE 
DTR -------------------------- > DSR 

DSR <----------------------—- DTR 

RTS _ )----------------------- > DCD 

CTS <-) 

DCD <--------------------- ( RTS 

(-> CTS 


4.2.2 Register Usage 
Registers 2 and 9 are shared between ports A and B. The following restrictions apply: 


o Never write to register 2. 


o Write to register 9 only when performing a reset operation. To reset SCC Port A or Port B, write calue $8A or $4A to 
register 9 during Dinit and Ddown. 


The DCD-B bit indicates the state of the signal on the wire it monitors. Never enable interrupts on DCD-B because this 
signal belongs to Port A although it is read on port B. (Refer to the description of register 15 in the SCC Manual. 
When Port A is in synchronous or SDLC modes, it may read DCD-B to determine the state of signal DSR on Port A's 
connector (not available on Lisa 1.0). 


Set RTS-B to 0 except when using Applebus. 


4.3 THE 6522 PARALLEL PORT 

You can the cycle times provided in this section to calculate timing for the pulse mode handshake and to compute data 
throughput rates. On Lisa 1.0, the 5.09375 MHz clock time is therefore 1963.19 nanoseconds. The same 1963.19 
nanosecond clock drives the 6522s on the Sony disk-drive card and the internally released four-port card. The cycle 
time for the 6522s on Lisa 2.0's I/O board, and the two-port card is 785.276 nanoseconds (derived from 68000 cycle 
time divided by 4). To summarize: 


LISA 1.0 LISA 2.0 
I/O board 6522 1963.19 ns 785.276 ns 
2-port card 785.276 ns 785.276 ns 
4-port card 1963.19 ns 1963.19 ns 
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Sony 6522 1963.19 ns 1963.19 ns 


4.3.1 Using the 6522 Pulse Mode Handshake 

When outgoing data is on the data bus, a pulse on a separate handshake line indicates that the data is ready for the 
receiver to read. The pulse mode is used to strobe outgoing data to a peripheral device or to acknowledge receipt of 
incoming data from a peripheral device. It is possible, however, for the 68000 to drive the 6522 faster than it can handle 
the pulse handshake, causing the data to be accessed before completion of the pulse from the previous access. 
Calculation of the minimum number of 6522 cycles allowed between read or write commands that utilize pulse mode 
handshake is shown below, using a Profile driver as an example. 


For writing to a Profile, the number of 6522 cycles between consecutive writes is n, where n must satisfy the inequality: 


n * clock-rate > T(dcw) + 1.5 * clock-rate + T(rs3) + device-latency 


where T(dcw) = 300 ns, as stated in the 6522 Data Sheet; 
T(rs3) = 1000 ns, as stated in the 6522 Data Sheet; 
clock-rate = 1963.19 ns or 785.276 ns, depending on which 
6522 is being used; 
device-latency = 100 ns for Profile. 


For reading from a Profile, the number of 6522 cycles between consecutive writes is n, where n must satisfy the 
inequality: 


n * clock-rate > T(pcr) + 1.5 * clock-rate + T(rs1) + device-latency 


where T(pcr) = 300 ns, as stated in the 6522 Data Sheet; 
T(rs1) = 1000 ns, as stated in the 6522 Data Sheet; 
clock-rate = 1963.19 ns or 785.276 ns, depending on which 
6522 is being used; 
device-latency = 600 ns for Profile. 


Thus for both reading from and writing to a Profile, n >= 4 on the fast 6522 and n >= 3 on the slow 6522. Four cycles of 
the fast 6522 can be generated by separating consecutive reads or writes by between 10 and 13 cycles of the 68000 
(inclusive of the read or write command). Likewise, three cycles of the slow 6522 can be generated by separating 
consecutive reads or writes by between 14 and 21 cycles of the 68000. Therefore to code a Profile driver that will 
accomodate both fast and slow 6522s, insert instructions requiring at least 14 cycles of the 68000 between 
consecutive reads and writes within the driver. 


4.3.2 Parallel Port Differences 

The Lisa contains one built-in parallel port. You may also connect a two-port card containing two parallel ports or an 
internally released four-port card containing three parallel ports plus a fourth non-standard port. Each parallel port is 
controlled by a 6522. The differences between the ports are highlighted here. The remarks below assume familiarity 
with the 6522 data sheet and the Lisa Hardware Manual (Sections 2.5.3, 3.5.2, and 6.5). 


On the built-in port, the CHK signal enters as a keyboard event; on the two-port or four-port card, the CHK signal enters 
on the CB1 line of each port. 


The diagnostic PARITY line is not accessible on the built-in parallel port but may be read on PB6 on either port of the 
two-port card or the first two ports of the four-port card. 
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When writing to a register of a 6522 parallel port, it is important to change only the bits you want to set. Therefore, the 
instructions ANDI.B, ORI.B, BSET, and BCLR should be used instead of MOVE.B whenever writing to registers 
ORB, DDRB, ACR, and PCR. IFR and IER are discussed below. 


The following bits should never be changed on the built-in parallel port: 


Register Bits 


Bits 0 through 4 of a parallel port's B register are used differently, depending upon whether a ProFile disk or a 
Centronics-compatible dot matrix printer (such as the C.Itoh 8510A) is attached. All parallel ports treat bits 0 through 4 
similarly. Following is a description of the use of these bits, as well as CA1, CA2, and CB2 of the IFR register. 


Bit# Direction ProFile Parallel Printer 

PBO in cable detect (1 = disconnect) paper empty (1 = PE) 
PB1 in BSY state (0 = busy) acknowledge (0 = ACK) 
PB2 out set = 0 always set = 0 always 

PB3 out read (= 1)/write(= 0) dir. set = 1 always 

PB4 __ out CMD (0 = CMD true) don't care 

CA1* in BSY latch (from PB1) ACK latch (from PB1) 
CA2 out data strobe data strobe 

CB2 in parity error latch ignored 


* Bit 0 of PCR controls whther CA1 will latch rising ot falling edge of PB1. 


The CB2 parity error latch that will be cleared by any read or write to the B register. Therefore check disk parity before 
making any reference to the B register. 


Writing a one to a bit that is already one in the 6522 IFR and IER registers may change the bit to zero. Therefore 
MOVE.B is the only instruction that should be used when writing to IFR or IER. Do not use the commands AND, 
ANDI, OR, ORI, BSET, or BCLR. 


The 6522 that controls the Lisa's keyboard has some of the signals which belong to the built-in parallel port. Table 4-1 
describes the use of the following bits on the keyboard 6522 as they pertain to the parallel port: PB5 and PB7 (bits 5 
and 7 on the B register) and DDRB5 and DDRB7 (bits 5 and 7 of data direction register B). The adress pairs given in 
parentheses in the table result in references to the same location. This is because address bits 6, 7, and 8 were used 
in early Lisa prototypes but are currently ignored. 
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Built-in Parallel: 
leave as input ignore 
(FCD811/FCD911) 


6522 Keyboard: 
output 
(FCDC05/FCDD85) 


Two-port/four-port Parallel: 
output 
(FCXX11) 


DDRB7 

Built-in Parallel: 
leave as input ignore 
(FCD811/FCD911) 


6522 Keyboard: 
output 
(FCDC05/FCDD85) 


Two-port/four-port Parallel: 
output 
(FCXX11) 


Table 4-1 


Bit Settings with Disk Attached 
PB7 DDRB5 PB5 


leave as input ignore 
(FCD801/FCD901) (FCD811/FCD911) (FCD801/FCD901) 


set to 1 output normally 1, 

(FCDC01/FCDD81) (FCDC05/FCDD85) 0 resets parity 
(FCDC01/FCDD81) 

set to 1 output normally 1, 

(FCXX01) (FCXX11) 0 resets parity 
(FCXX01) 


Bit Settings with Printer Attached 
PB7 DDRB5 PB5 


leave as input ignore 
(FCD801/FCD901) (FCD811/FCD911) (FCD801/FCD901) 


set to 1 input SELECT(1=online) 
(FCDC01/FCDD81) (FCDC05/FCDD85) (FCDC01/FCDD81) 


set to 1 output SELECT (1=online) 
(FCXX01) (FCXX11) (FCXX01) 


To determine the value of XX in addresses FCXX01 and FCXX11 in Table 4-1, consult Table 4-2. Channel 1 refers to the 
bottom XX; channel 2 refers to the top XX; channel 3 is accessible with the back off on a four-port card only. 


4.4 PERIPHERAL CARDS 


Table 4-2 
chant chan2 chan 
20 28 30 
60 68 70 
AO A8 BO 
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The Lisa's three I/O slots support peripheral cards as well as devices. If a card can support more than one device, a 
demultiplexing driver is required for the card and one driver is required for each type of device supported by the card. 
This section describes hardware requirements for Lisa peripheral cards. 


Each peripheral device (or its controller) should have a separate interrupt-enable latch that operates under software 
control. When disabled, this latch should hold pending any interrupt, without signaling the interrupt. When the latch is 
enabled, any previously pending interrupts should be signaled. (The Interrupt Enable Register on the 6522 VIA 
provides this function.) In addition, a system reset must disable the device controller so that no interrupts are possible 
until the driver has enabled interrupts on the device. 


Any operation that may take the device more than about one millisecond should cause an interrupt upon completion. 
The driver should poll for this completion condition. 


Writing a device driver can be greatly simplified if the device handshake sequence has only one point at which an 
interrupt is required. For example, it is preferable to have the driver wait for SEEK and WRITE at the same time ona 
disk device, rather than waiting for the SEEK to complete before being able to start up the WRITE. 


Disconnecting the cable to a device should cause an interrupt that the driver can respond to. If this is not possible, the 
controller should provide an interval timer interrupt to allow the driver to poll for disconnection. 


Any hardware configuration parameters should operate under software control. 
If the device is bootable, its controller must support the conventions adopted in the Lisa Boot ROM. 
Each Lisa peripheral card must be self-identifying. 


4.5 PRINTERS 

Printer programs execute as a shared intrinsic unit within the applications. The printer programs are responsible for 
creating the appropriate sequence of ASCII bytes to hand off to the OS using WRITE_DATA. By calling MOUNT, 
UNMOUNT, OPEN, CLOSE_OBJECT, WRITE_DATA, and DEVICE_CONTROL, printer programs can 
communicate with a serial or parallel interface port on the Lisa. Special printer drivers that control letter quality, dot 
matrix, laser, and plotter printing are not within the scope of this manual. 


The serial or parallel interface driver within the Operating System is responsible only for making sure that the data is 
sent to the printer without overrunning the device. Handshake protocols provided by the OS include: 


o Delay after CR, LF. 
o Hardware handshake. 
o XON/XOFF software handshake. 


Through DEVICE_CONTROL, the handshake protocol, the modem control, parity, byte length, baud rate, and 
other device characteristics of the printer can be set by the printer program. 


4.6 BUILT-IN DEVICES 

Drivers for the mouse, speaker, interval timer, alarm, and clock/calendar are built in and are not configurable. Drivers for 
built-in disk drives, built-in serial ports, keyboard, and screen are configurable, since these devices can be accessed 
using READ_DATA or WRITE_DATA. 
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Chapter 5 
SPECIFYING CHARACTERISTICS FOR A NEW DRIVER 


5.1 The Installation Disk 


5.2 The CDCHAR Program 
5.3 The Preferences Tool 
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SPECIFYING CHARACTERISTICS FOR A NEW DRIVER 


5.1 THE INSTALLATION DISK 


The installation disk is used by the end user in conjunction with the Preferences tool to install a driver for a new device. 
The installation disk contains the driver code file, the Characteristics file, and for bootable devices only, a loader file. 
This software must all be contained on a single installation disk. 

The driver code file is the configurable driver program you have written to support a new device or group of devices. 


The Characteristics file contains information about your configurable driver that is needed by the Lisa Operating 
System. You create the Characteristics file by means of the CDCHAR program described in this chapter. 


The loader file contains the program for booting the system from the new device; it should have the same name as the 
driver code file with extension .BT. 


Figure 5-1 shows the steps necessary to make a configurable driver available on a new system. 
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DEFINE 
WRITE DRIVER 


CONFIGURABLE CHARACTERISTICS 
DRIVER VIA 


CDCHAR 


DRIVER CODE CHARACTERISTICS 
FILE FILE 


INSTALLATION 
DISK 


1. Insert installation 
disk for new device. 


INSTALL 
VIA 
PREFERENCES 


2. Install new driver. 


3. Specify Device 
Connections for 
new driver. 


FIGURE 5-1 


Figure 5-1. Specifying Driver Characteristics. 
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5.2 THE COCHAR PROGRAM 
The CDCHAR program asks you questions about your configurable driver and saves the answers in the Characteristics 
file, which is used by the end user when installing the configurable driver. 


The CDCHAR program is supplied with the Lisa Operating System. To run the program, use the Run command in the 
Workshop. The CDCHAR dialog is as follows: 


Driver name? 
Respond with the name you want the end user to see in the Device Connections table of the 
Preferences tool; for example, 

Laser Printer 

The driver name may contain spaces; it must not be more than 22 characters long. Note that two or more 
devices with the same driver name may not be configured on the same Lisa. 

Unique id? 
Supply the permanent identification number for your driver. This number must be assigned to you by 
Apple Computer. (Numbers 1 through 128 are freely available to you for the purpose of testing your 
driver.) 

Any default info for PM's extension words? 
Indicate yes or no. If yes, you are prompted for up to three words of device-specific information that will 
be stored in parameter memory whenever the configurable driver is loaded. Each word is a number 
between 0 and 65535. This information is optional and is ignored by the Operating System. The end 
user can override this information at installation time by means of the Preferences tool. 

Device type [1 = sequential, 2 = disk, 3 = demultiplexing]? 
Specify whether your device is sequential, disk, or demultiplexing. 


Is the device bootable? 


Indicate ues or no. If yes, supply a loader file on the installation disk; the loader file contains the program 
for booting the system from the new device. (This question is asked only for disk devices.) 


Removable media? 
Indicate yes or no. (This question is asked only for disk devices.) 
Ejectable media? 


Indicate yes or no. If yes, the driver program must support the Dskunclamp function code. (This question 
is asked only for disk devices with removable media.) 


Address of boot track blocks? 


Indicate the block number where the boot tracks should continue. If you specify zero, the boot tracks do 
not skip any blocks before beginning the first File System block. (This question is asked only for disk 
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devices.) 


Address of the first File System block? 


Indicate the absolute block number of the first File System block. (This question is asked only for disk 
devices.) 


Should the driver be preloaded? 
Indicate yes or no. If the driver is preloaded -- loaded at boot tiem -- the first acess of the device will be 
slightly faster. (This question is nor asked for demultiplexing drivers or for disk drivers with removable 
disks.) 


Should the driver stay resident, once loaded? 


Indicate yes or no. If yes, the driver remains in memory when the device is unmounted. (This question is 
not asked for demultiplexing drivers or for disk drivers with removable disks.) 


CDCHAR now lists the data you have entered so that you can verify it. 
Is all this correct? 
If no, you may enter the data again. If yes, the Characteristics file is created. 
Characteristics file destination disk (e.g, -MYDISK)? 
Specify the name of the installation disk. 
5.3 THE PREFERENCES TOOL 


The Preferences tool is used by the end user to install a configurable driver, using the installation disk described 
above. To install a new device, the end user must follow these steps: 


1. If the device requires one or more new hardware cards, power 
down the Lisa and insert the cards. 


2. Power up the Workshop or the Office System and open 
Preferences. 


3. Insert the installation disk in the built-in microdisk slot. 


4. Let Preferences install the driver on the installation disk. 
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Chapter 6 
HOW TO MAKE A DEVICE DRIVER 


6.1 Editing 
6.2 Compiling and Assembling 
6.2.1 Assembler Language Considerations 
6.2.2 Pascal Considerations 
6.3 Linking 
6.4 Installing a New Driver 
6.4.1 Installing the OS 
6.4.2 Copying Files 
6.4.3 Running the Build Macro 
6.4.4 Installing the Driver 
6.5 Testing and Debugging 
6.5.1. TRACE Function 
6.5.2 Getting Control during OS Startup 
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HOW TO MAKE A DEVICE DRIVER 


6.1 EDITING 
Use the Lisa Workshop for writing and editing your driver. 


6.2 COMPILING AND ASSEMBLING 
This section discusses assembler language and Pascal conventions for drivers. 


6.2.1 Assembler Language Considerations 

If your driver contains assembler language code, the Workshop Assembler can generate the object files needed for 
linking. All assembler language programs must conform to the Pascal parameter-passing and register-usage 
conventions described in the Assembler chapter of the Workshop manual (Sections 6.3 and 6.6). The declaration of 
an EXTERNAL assembler language routine in your driver must occur within the IMPLEMENTATION portion of the unit, 
at the outermost level (not within a subroutine). We recommend that you prefix all object-code file names with 
OBJECTY/. 


6.2.2 Pascal Considerations 
A device driver must contain a Pascal unit like the one in Figure 6-1. If you code your driver in assembler language for 
efficiency, the assembler language driver must perform as though it were this Pascal program. 


UNIT <driver unit name>; 


INTERFACE 
USES 
(*$U object/driverdefs.obj*) 
driverdefs, 
(*$U object/driversubs.obj*) 
driversubs; 


function DRIVER (parameters: param_ptr): integer; 


IMPLEMENTATION 
CONST ... 
TYPE ... 
<declarations of external assembler-language subroutines, if any> 
<internal Pascal subroutines go here> 


function DRIVER; 
CONST ... 
TYPE ... 
VAR ... 
<internal Pascal subroutines may go here> 


begin 
DRIVER :=0; _(*no errors yet*) 
case parameters’.fnctn_code of 
dinterrupt: ... 
dinit: ... 
ddown: ... 
dskunclamp.: ... 
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dskformat: ... 
seqio: ... 
dskio: ... 
dcontrol: ... 
reqrestart: ... 
dattach: ... 
dunattach: ... 
ddsicon.: ... 
dalarms: ... 
hdinit: ... 
hddown.: ... 
hdskio: ... 
otherwise DRIVER := <error code> 
end (* case *) 
end; (* driver *) 


Figure 6-1. A Skeleton Driver Program. 


For Pepsi release only, every driver must be linked with a dummy main program shown in Figure 6-2. This program is 
never executed; it is required so that the Linker will mark your configurable driver as an executable program. 


PROGRAM DUMMYMAIN; 
USES 

(*$Uobject/driverdefs.obj*) 
driverdefs, 

(*$Uobject/driversubs.obj*) 
driversubs, 

(*$Uobject/your-driver-unit's-file.obj*) 
your-unit-name, 


VAR 

i: integer; 

p: param_ptr; 
begin 

i := driver(p); 
end. 


Figure 6-2. A Dummy Main Program. 


To limit the size of the Pascal library (osint.paslib.obj) linked with each driver, limit your use of Pascal functions to the 
following: 


ABS, CHR, DIV, EXIT, MOD, MOVELEFT, ODD, ORD, ORD4, POINTER, PRED, SIZEOF, 
SUCC 


You can reduce the memory requirements of your driver by avoiding sets, console I/O, (READ, READLN, WRITE, 
and WRITELN), string procedures, and procedures dealing with packed array of char. 


Pascal dynamic allocation (NEW), real variables, and general I/O routines provided by the Pascal language are not 
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supported by the Pascal libraries linked with drivers. 
Do not use the $S compiler directive. Your driver must reside entirely within the blank segment. 


6.3 LINKING 

Each driver is linked so that it is contained entirely, within the non-intrinsic blank segment, which is the default segment. 
The first object file linked with the driver is an assembler language file whose first instruction is a JMP to the driver 
function subroutine. The driver is also linked with a main Pascal program called drivermain.obj which, though never 
executed, tricks the Linker into resolving all references as thought the output of the linkage were a stand-alone, 
executable program. 


Using the Workshop's Linker, link together the following modules: (driverasm must be first; the others may be in any 
order): 


object/driverasm.obj 
object/your-driver-unit's-file.obj 
object/your-other-driver-subroutines.obj 
object/your-dummymain-file.obj 
object/osintpaslib.obj 


6.4 INSTALLING A NEW DRIVER 
This section describes the steps you must take in order to install a new configurable driver. Follow these steps in the 
sequence shown. 


6.4.1 Installing the OS 
Be sure you have version 8.1 or above of the Operating System. Then install this version on a test disk, not on your 
Workshop boot disk. 


6.4.2 Copying Files 
Move the following files from the test drive to your Workshop prefix volume. 


build/assemb.text 
build/comp.text 
build/link.text 
object/driverasm.obj 
object/driverdefs.obj 
object/driversubs.obj 
object/osintpaslib.obj 


Edit, rename, and copy the following files to your Workshop prefix volume. 


build/rsgen.text 
(example of compile/link macro for driver) 
build/rslinklist.text 
(example of Linker input list) 
source/rs232main.text 
(example of dummy main program) 


6.4.3 Running the Build Macro 
Run your new build macro (based on build/rsgen.text). A macro is a file containing commands to be executed by 
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the Workshop. 


6.4.4 Installing the Driver 
Copy your driver to the test disk and boot from the test disk. Then follow these steps to replace an existing driver. An 
RS232 driver is given as an example. (Only RS232 drivers are configurable for Pepsi release.) 


If you are replacing an existing driver, 
7 Issue an UNMOUNT command for the device, RS232A. 


= Rename the existing driver on the test disk, system.cd_rs232a 
to some temporary file name. 

ss Rename your driver to system.cd_rs232a, the name the existing 
driver had. 

af Issue a MOUNT command for RS232A, the device your driver 


supports. Your new driver will be invoked. 


Table 6-1 contains a list of devices supported under version 8.1 of the Lisa Operating System together with their driver 
name. 


Table 6-1 
Currently Supported Drivers (OS Version 8.1) 
Device Driver Name 
Serial Port A system.cd_rs232a 
Serial Port B system.cd_rs232b 


6.5 TESTING AND DEBUGGING 

You can debug your device driver by writing messages to the screen with WRITELN, by using LisaBug, or by a 
combination of these techniques. You can call WRITELN to display the contents of variables at various states in the 
execution of a driver. 


You may want to turn these debugging features on and off. WRITELN commands can be selectively executed using 
the TRACE function described below or they can be selectively compiled by using compile-time conditional 
compilation directives described in the Workshop manual. 


Other procedures and functions that are useful during program development are MICROTIMER, LOG, and 
LOGGING, discussed in Chapter 2. 


6.5.1 TRACE Function 
function TRACE (Part: osportion; Level:integer): boolean 


Input Parameters: 
Part: Always 'DD'. 
Level: 0..99, value to compare to the trace fence. 


Output Parameters: 
TRACE: True if the trace fence is <= Level; else false. 


Your driver can call the TRACE function to test a trace fence in the OS indicating whether WRITELN commands 
should be executed. The trace fence for device drivers is an integer located at location $220 from domain 0. (All 
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drivers execute in domain 0.) You can change the trace fence at execution time by using the LisaBug commands Set 
Memory or Set Word. 


The TRACE function returns true when the trace fence is set to a value less than or equal to Level. In debug 
statements, you want to appear in all or most instances, set Level to a high value. For device drivers, Part must 
contain the letters 'DD'. 
The TRACE function is used in a Pascal statement like the following: 

if TRACE('dd', 60) then WRITELN('debug message’) 


In the example above, if the trace fence is 60 or less, the debug message will be printed. 


6.5.2 Getting Control During OS Startup 
Some driver function codes are invoked during startup. To test them, you will need: 


OS version 5.4 (or later). 
“ CPU boot PROM $117 (or later). 
. A copy of LisaBug (file system.debug) on your boot volume. 


The OS loader chooses whether to bring the OS up in 'debug mode’, based on the value of location $10000. The 

PROM normally initializes all of memory to -1, so a -1 in that cell means run without debug mode. In order to select 

debug mode, you must modify location $10000 to a value other than -1 before the loader gets control. Here's how: 
1. Reboot from the PROM. 


2. Press the Apple and numeric-key-pad Enter keys simultaneously at the point where you would normally 
request a boot device selection. 


3. When the PROM presents a menu for 'restart’, ‘continue’, or 'startup from’, press the Apple and S keys 
simultaneously: this selects service mode. 


4. Use the Set Memory command (by typing 2) to store 0 in memory location $10000. The Display Memory 
command lets you see whether the debug-mode cell really has been changed. 


5. Quit service mode by typing 7 or 9, returning control to the menu described in step 3 above. Choose the 
‘startup from' option to boot from your boot volume. 


6. The loader executes next. Just before it loads the main part of the OS, the loader emulates a level-7 interrupt 
to give you achance to debug the loader. Type g to continue. 


7. When it reaches the DB_INIT section of startup -- when OS symbols and labels are available -- the OS 
emulates another level-7 interrupt. 


Now you can set breakpoints, examine system global variables, set trace fences, and perform any other LisaBug 
commands. Don't forget to set all breakpoints in terms of domain 0; for example: 


>BR 0O:my_label 
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Cross Reference Listing: 


Beginning of file: DRIVERSUBS.TEXT 


1; 1. 

1: 2. UNIT DRIVERSUBS ; { UNIT NEEDED BY CONFIGURABLE DRIVERS } 

1; 3's 

dks 4. INTERFACE 

1: 5. USES 

1: 6. {$U object/driverdefs .obj} 

1: 7. DRIVERDEFS ; 

Ti: 8. 

1: 9. 

1? 10. procedure CANCEL REQ(req: reqptr_type) ; 

a: 11. 

1: 12. procedure ENQUEUE (var newlink, leftlink: linkage; b_sysarea: absptr) ; 
1; 13. 

Ti: 14. procedure DEQUEUE (var link: linkage; b_sysarea: absptr) ; 

1; 15. 

1.3 16. procedure RELSPACE(ordaddr: absptr; b_ area: absptr) ; 

1: 17. 

dis 18. function GETSPACE (amount: int2; b_area: absptr; 

A? 19. var ordaddr: absptr): boolean; 
di: 20. 

L's 21. procedure SYSTEM ERROR(errnum: int2) ; 

A. 22. 

a: 23. function TRACE(part: osportion; level: integer) : boolean; 

2 24. 

1 25. procedure status _req(reqptr: reqptr_type; 

1: 26. var status: reqsts_type) ; 
1); 27. 

1; 28. procedure unblk_req(reqptr: reqptr_type; 

1: 29. success f: boolean) ; 
1 30. 

13 31. procedure blk_req(reqptr_list: reqptr_type; 

1: 32. var first_reqptr: reqptr_type) ; 
1: 33. 

a 34. procedure IODONE(port ptr: hdiskcb_ptr; prev_err: integer) ; 

a: 35. 

ais 36. procedure FREEZE _SEG (var errnum: int2; c_sdb: absptr; offset: int4; 

12 37. ioreq_addr: absptr; var buffaddr: absptr) ; 
Ti: 38. 

1; 39. procedure UNFREEZE SEG(c_sdb: absptr) ; 

1.3 40. 

dig 41. procedure ADJ_I0_ CNT (inc_io_count: boolean; c_sdb: absptr) ; 

5 42. 

A? 43. procedure CVT_BUFF_ADDR(var errnum: int2; mem_writeF: boolean; buffaddr: absptr; 
‘Ai¢ 44, byte_cnt: int4; var ordsdb: absptr; var offset: int4); 
1: 45. 

a 46. procedure CALLDRIVER(var errnum: integer; config ptr: ptrdevrec; 

a: 47. parameters: param ptr) ; 

2 48. 

1; 49. procedure INTSOFF (level: intsoff_type; var status: intson_type) ; 

1: 50. 

di: 51s procedure INTSON(status: intson_type) ; 

a 52. 

1: 53. function ALLSET(b1, b2: intl): boolean; 

I: 54. 

12 55. function LOGGING: boolean; 

Ti: 56. 

1: 57. procedure LOG(var errnum: integer; ptr_arr: longint) ; 

1? 58 

a: 59. function CHAIN _FORWARD(current: linkage): reqptr_type; 

1; 60. 

1: 61. procedure DISKSYNC (busy: boolean) ; 

aD 62. 

di: 63. function MICROTIMER: longint; 

1.3 64. 

1: 65. procedure ALARM ASSIGN(var alarm: integer; pdr: ptrdevrec; status: intson_type) ; 
1 66. 

13 67. procedure ALARMRETURN (alarm: integer) ; 

A: 68. 

1: 69. procedure ALARMRELATIVE (alarm: integer; delay: longint) ; 

aT 70. 

ate 71. procedure ALARMOFF (alarm: integer) ; 


- Page 68 of 141 - 


6 2? Device Drivers Manual 


PRPPRP PRP PBPEP BPP PRP PBR BP BPP PRP BPP PPP PP PP PPP PPP PPP PPP PEP PRP PPP RPP PEP PP EPP PP PP PP EP PPP PPP Re RR 


100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 
146. 
147. 


72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 
98. 
99. 


procedure LINK_TO PCB(req ptr: reqptr_type) ; 


procedure Use_Hdisk(configptr: ptrdevrec) ; 
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procedure Call _ Hdisk(var error: int2; configptr: ptrdevrec; parameters: param_ptr) ; 


function OKXFERNEXT (port ptr: hdiskcb ptr): integer; 


IMPLEMENTATION 


procedure CANCEL_REQ; 
external; 


procedure ENQUEUE; 
external; 


procedure DEQUEUE; 
external; 


procedure RELSPACE; 
external; 


function GETSPACE; 
external; 


procedure SYSTEM_ERROR; 
external; 


function TRACE; 
external; 


procedure status_req; 
external; 


procedure unblk_req; 
external; 


procedure blk_req; 
external; 


procedure IODONE; 
external; 


procedure FREEZE SEG; 
external; 


procedure UNFREEZE_SEG; 
external; 


procedure ADJ_IO CNT; 
external; 


procedure CVT_BUFF_ADDR; 
external; 


procedure CALLDRIVER; 
external; 


procedure INTSOFF; 
external; 


procedure INTSON; 
external; 


function ALLSET; 
external; 


function LOGGING; 
external; 


procedure LOG; 
external; 


function CHAIN_FORWARD ; 
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1: 148. external; 

1: 149. 

1: 150. procedure DISKSYNC; 

1: 151. external; 

1: 152. 

1: 153. function MICROTIMER; 
1: 154. external; 

1: 155. 

1: 156. procedure ALARM_ASSIGN; 
1: 157. external; 

1: 158. 

12-2159: procedure ALARMRETURN ; 
1: 160. external; 

1: 161. 

1: 162. procedure ALARMRELATIVE; 
1: 163. external ; 

1: 164. 

1: 165. procedure ALARMOFF ; 

1: 166. external; 

1: 167. 

1: 168. procedure LINK_TO_PCB; 
1: 169. external; 

1: 170. 

1: 171. procedure Use_Hdisk; 
1: 172. external; 

13. 173% 

1: 174. procedure Call_Hdisk; 
1: 175. external; 

1: 176. 

1: 177. function OKXFERNEXT; 
1: 178. external; 

1: 179. 

1: 180. end. 

1: 181. 


End of File: DRIVERSUBS.TEXT 


Directory of files in Cross Reference: 


1: DRIVERSUBS. TEXT 


level = 1. 

absptr 1: 12, 1 14, 1 16, Ls 16, 1: 18, Ls~ +19, abe 36, 1: 37, 
1: 37, 1 39, 1 41, 1: 43, 1: 44. 

alarm 1: 65*, 1 67*, 1 69*, 1: 71*. 

amount 1: 18%. 

bl 1: 53*. 

b2 1: 53*. 

b area 1: 16*, 1: 18*. 

b_sysare 1: 12*,; 1: 14*. 

buffaddr 1: 37*, 1 43%. 

busy 1: 61*. 

byte _cnt 1: 44%, 

c_sdb 1: 36*, 1: 39%, 1: 41*. 

config p 1: 46*. 

configpt 1: 75*, 1: 77*. 

current 1: 59*, 

delay 1: 69%. 

driverde 1: Ue 

driversu 1: 2. 

errnum 1: 21*, 1: 36%, ales 43*, 1: 46%, 1: 57*. 

error 1: 77%, 

external 1: 85, 1: 88, Li 91, 1: 94, 1: 97, 1: 100, 1: 103, 1: 106, 
1: 109, 1: 112, 1: 115, 1: 118, 1: 121, 1: 124, 1: 127, 1: 130, 
1: 133, 1: 136, 1: 139, 1: 142, 1: 145, 1: 148, 1: 151, 1: 154, 
1: 157, 1: 160, 1: 163, 1: 166, 1: 169, 1: 172, 1: 175, 1: 178. 

first_re 1: 32*. 

hdiskcb_ 1: 34, 1: 79. 

implemen 1: 82. 

inc ioc 1: 41*, 

intl 1s 53. 

int2 pce 18, 1: 21, a be 36, 1: 43, 1: 77. 

int4 Les 36, 1: 44, 1: 44. 

interfac 1: 4. 

intsoff_ 1: 49. 
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intson_t 1: 49, 

ioreq_ad 1: 37*. 
leftlink 1: 12*. 
level Lt: 23*, 
link 1s 14*. 
linkage 1: 12, 

mem_writ 1 43* 
newlink 1: 12*. 
offset 1: 36*, 
ordaddr 1: 16*, 
ordsdb 1: 44x, 
osportio 1: 23. 

param_pt 1: 47, 

paramete 1: A4T*, 
part 1: 23*. 
pdr 1: 65*. 
port_ptr 1: 34*, 
prev_err 1: 34*. 
ptr_arr 1: 57*. 
ptrdevre 1: 46, 

req 1: 10*. 
req ptr 1: 73%. 
regptr 1: 25*, 
regptr_1 1: 31: 
regqptr_t 1: 10, 

reqsts_t 1: 26. 

status 1: 26*, 
success. 1: 29%, 
unit 1: 2. 

Procedures 

adj_io.cl: 41*, 
alarm_as 1: 65*, 
alarmoff 1: 71%, 
alarmrel 1: 69%, 
alarmret 1: 67*, 
blk_req 1: 31%, 
call hdi 1: 77%, 
calldriv 1: 46*, 
cancel r 1: 10*, 
evt_buff 1: 43*, 
dequeue 1: 14*, 
disksync 1: 61*, 
enqueue 1: 12*, 
freeze _s 1: 36*, 
intsoff 1: 49x, 
intson 1: 51*, 
iodone 1: 34*, 
link_to_ 1: 73*, 
log 1: 57*, 
relspace 1: 16*, 
status_r 1: 25*, 
system_e 1: 21%, 
unblk_re 1: 28%, 
unfreeze 1: 39%, 
use_hdis 1: 75*, 
Functions 

allset 1: 53*, 
chain fo 1: 59%, 
getspace 1: 18%, 
logging 1: 55*, 
microtim 1: 63*, 
okxferne 1: 79%, 
trace Ls 23*, 


Declaration Character : 


Assignment Character : 


1: 


PRPPRPRPRPRPRPRPEPP PPP PPP RPP RP RPP PPR 


PRPRPRPRPRRB 


te! 


ta! 


51, 


49%. 


14, 


44x. 
19%. 


77. 


77%, 


79%. 


65, 


28*. 


25, 


49* 


123*. 
156*. 
165*. 
162*. 
159*. 
111*. 
174*. 
129%. 

84%. 
126*. 

90*. 
150*. 

87*. 
117*. 
132*. 
135*. 
114*. 
168*. 
144*. 

93*. 
105*. 

99x. 
108*. 
120*. 
171*. 


138*. 
147*. 

96*. 
141*. 
153*. 
177*. 
102*. 


65. 


59. 
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Cross Reference Listing: 


Beginning of file: GENIO.TEXT 


UNIT genio; 
{ general I/O driver } 


{ By Dave Offen } 

{ Copyright 1983, Apple Computer Inc. } 

{ Modified 4/2/83 by Wendell Henry } 

{ Add CALLDRIVER interface } 


OAHU BPWNHe 


o 


10. INTERFACE 


12. USES 

13. {$Uobject/driverdefs .obj} 
14. driverdefs, 

15. {$Uobject/hwint.obj} 

16. hwint, 

17. {$Uobject/sysglobal .obj} 
globalda, 

19. {$Uobject/procprims . obj} 
20. proc_prims, 

21. {$Uobject/mmprim.obj} 
22. mmprimitives, 

23. {$Uobject/asynctr.obj} 
24. asynctr; 


26. TYPE 

27. drvrec = record 

28. driver_id: longint; { as a debugging aid } 

29. version: integer; { driver's version number } 

30. sem: semaphore; { locks access to drvrec } 

31. addrdrivrname: absptr; { for loading driver (ptr to pathname) } 

32. nusers: 0..32767; { use count for driver - 0 if unloaded } 

33. e pt: absptr; { driver address - undefined if nusers=0 } 

34. kres_addr: absptr; { driver address if kernel-resident. nil 

35. if requires loading off disk 


PPP RPP PRP BPP PRP BPP BP BBP PPP PPP RP PPP PP Pee eR) 
B 
foe} 


36. end; 
38. procedure LINK_TO PCB(req ptr: reqptr_type) ; 


40. procedure CALLDRIVER(var errnum: integer; config ptr: ptrdevrec; 
41. parameters: param ptr) ; 


43. procedure UP(var errnum: integer; config_ptr: ptrdevrec; 
44. callers _config_ptr: ptrdevrec) ; 


46. procedure DOWN(var errnum: integer; config ptr: ptrdevrec; 
47. callers_config_ptr: ptrdevrec; enter_at: integer) ; 


49. procedure ALARM ASSIGN(var alarm: integer; pdr: ptrdevrec; 
50. status: intson_type) , 


52. procedure ALARM FIRES (alarm: integer) ; 
54. procedure CANCEL REQ(req: reqptr_type) ; 


56. procedure DRIVERCALL(var errnum: integer; dev_index: integer; 
57. parameters: param ptr) ; 


59. procedure SEQENTIO(var errnum: integer; dev_index: integer; io_buff_addr: absptr; 
60. length: longint; read_f: boolean; pcb ptr: ptr_pcb; 
61. var req ptr: reqptr_type) ; 


63. procedure DISKIO(var errnum: integer; dev_index: integer; var header: pagelabel; 

64. extra_link: int4; extra_data_used: integer; io_buff_addr: absptr; 
65. length: integer; block_no: int4; read_f : boolean; 

66. mode: disk_io type; pcb ptr: ptr_pcb; var req ptr: reqptr_type) ; 


68. function CHAIN _FORWARD(current: linkage): reqptr_type; 


PRPRPRPEPPRPBPHP PRP BPP BPR BPP RPP PPP PPP PP PP ee RR) 
uo 
w 


70. function BADCALL(parameters: param ptr): integer; 
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* * 


* 


a eo ary 


100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 


112. 
113. 


114. 
115. 


116. 
117. 


118. 
119. 


120. 
121. 
122. 
123. 


124. 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
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71. 


72 


73. 


74. 


75. 


76. 


77. 


78. 
79. 
80. 


81. 
82. 
83. 


84. 
85. 
86. 


87. 


88. 
89. 


90. 


91. 
92. 
93. 
94. 
95. 
96. 


97. 


98. 
99. 


, function SCC(parameters: param ptr): integer; 
IMPLEMENTATION 
{$S krgenio} 
{$IFC not debug2} 
{$R-} { rangecheck off unless debug mode } 
{ SENDC} 
CONST 
errbase = 600; 
syserrbase = 10600; 
TYPE 
ptrpathname = “pathname; { s/b USES } 
VAR { Yes, it's global } 
alarm_table: array[0..20] { keyed to # of alarms in HWINT } of record 
cfg_ptr: ptrdevrec; 
intstat: intson_type; 
filler: integer; { makes record a power of 2 - fast subscripts } 
end; 
procedure LOAD _DRIVER(var err: integer; var add: absptr; name: ptrpathname) ; 
external; { s/b USES } 
procedure UNLOAD _DRIVER (var err: integer; add: absptr); external; { s/b USES } 
procedure CALLDRIVER; external; 
procedure ALRM; external; 
procedure TWIGIO(var er: integer; var req: reqblk; addr: int4); external; 
procedure CANCEL REQ(* req: reqptr_type *); 
[BARRIER KR E KER IRKRKKR EERE REE IRR ERE RARER EERE REREREERERERE | 
{* 
{* Description: Dispose of request block & unlink from PCB *} 
{* 
{* Input Parameters: Pointer to request block *} 
{* 
{* Output Parameters: none *} 
{* 
{* Side Effects: none *} 
{* 
{* Special Conditions of Use: none *} 
{* *} 
{* Error Conditions: *} 
{* 
[ARH RHHRKKKRRE RRR KEE EKER ERIK KERR ARERR RE REREREERERERE | 
VAR 
prevints: intson_type; 
pblk_in_ pcb: ptrblk_type; 
begin 


INTSOFF (allints, prevints) ; 


with req* do 
begin 
DEQUEUE (pcb _chain.header, b_ sysglobal_ptr) ; 
INTSON (prevints) ; 
pblk_in_pcb := @blk_in pcb; 
if pblk_in_pcb* = [i_o] then 
with cfigptr* do 
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Te 141; if permreq ptr = req then 
1: 142. begin 
1: 143. preq_ avail := true; 
1: 144. EXIT(cancel_req) { permanent request doesn't get deleted } 
13145. end 
1: 146. end; 
1: 147. RELSPACE (ord (req), b_sysglobal_ ptr) 
1: 148. end; { cancel_req } 
1: 149. 
1: 150. 
1: 151. procedure DISKIO; 
» 152. [RRR RRR KERRIER ERIK IR ERR ERK EKER ERE REE KRRR EERE REE ER RERERKEKE 
1: 153. {* 
*} 
1: 154. {* Description: Start up or queue a disk read or write *} 
1: 155. {* 
=) 
1: 156. {* Input Parameters: You wouldn't believe it if I told you. *} 
1: 157. {* 
*} 
1: 158. {* 
ae 
13 159: {* 
*} 
1: 160. {* Output Parameters: Req ptr is the address of the newly *} 
1: 161. {* created request block. *} 
1: 162. {* 
1: 163. {* Side Effects: Device dependent driver is invoked. *} 
1: 164. {* 
*} 
1: 165. {* Special Conditions of Use: none *} 
1: 166. {* 
a 
1: 167. {* Error Conditions: *} 
1: 168. {* 
i 
1: 169. [RARER REE REE IR IRE EERE KER ERR ERK RRR ERE KER ERRERERKEKE | 
1: 170. 
1: 171. VAR 
Ly LIZ: Pp: params; 
13.173: d_ptr: absptr; 
1: 174. ext_ptr: extdptr_type; 
1: 175. pblk_in_ pcb: ptrblk_type; 
1: 176. ext_config: “ext_diskconfig; 
1: 177. leftlink: link_ptr; 
1: 178. bytes: longint; 
12-179: prevints: intson_type; 
1: 180. 
1: 181. begin 
1: 182. errnum := 0; 
1: 183. ext_config := pointer (configinfo[dev_index]*.ext_addr) ; 
1: 184. if (block_no < 0) or (length <= 0) or 
1: 185. ((block_no + length) > ext_config*.num_bloks) or 
1: 186. ((mode = chained_hdrs) and not read_f) or 
1: 187. (read_f and (mode = with_header)) then 
1: 188. errnum := errbase + 8 { illegal mode, start addr or transfer length } 
1: 189. else 
1: 190. if not GETSPACE (sizeof (reqblk) +sizeof (disk_extend), b_sysglobal_ptr, d_ptr) then 
1: 191. errnum := errbase + 10; 
1: 192. 
1: 193. if errnum = 0 then 
1: 194. begin 
1: 195. req ptr := pointer(d ptr); { point to the request } 
1: 196. ext_ptr := pointer(d_ptr + sizeof(reqblk)); { point to the extension area } 
1: 197. 
1: 198. { initialize the request block } 
1: 199. 
1: 200. with req ptr* do 
1: 201. begin 
1: 202. peb_chain.kind := reqblk_ type; 
1: 203. reqstatus.reqsrv_f := active; 
1: 204. reqstatus.reqabt _f := false; 
1: 205. pblk_in_pcb := @blk_in_ pcb; 
1: 206. pblk_in_pceb* := [i_o]; 
1: 207. block _p £ := false; 
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208. 
209. 
210. 
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216. 
217. 
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221. 
222. 
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224. 
225. 
226. 
227. 
228. 
229. 
230. 
231. 
232. 
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235. 
236. 
237. 
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245. 
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250. 
251. 
252. 
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255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 
268. 
269. 
270. 
271. 
272. 
273. 
274. 
275. 
276. 
277. 
278. 
279. 
280. 
281. 
282. 


end 
end; 
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hard_error := 0; 
operatn := ord(read_ f) ; 
cfigptr := configinfo[dev_index] ; 


req extent := ord(ext_ptr); { point the request block to the extension } 


end; 


{ transfer parameters to disk extension data block } 


with ext_ptr* do 


begin 


if (mode = without_header) and not read_f then 


else 


with soft_hdr do 

begin { zero out the header when writing w/o headers } 
version := 0; 
datastat := dataok; 
filler := 
volume : 
fileid : 
dataused : 
abspage : 
relpage : ; 
fwdlink := 0; 
bkwdlink := 0 

end 


0; 
0; 
0; 


soft_hdr := header; 


last_fwd_link = extra_link; 
last_data_used := extra_data_used; 
read_flag = read _f; 


blkno 


:= block no + ext_config*.strt_blok; 


io_mode = mode; 
num_chunks := length; 
xfer_count := 0; 

if io_mode = raw_io then 


else 


bytes := 536 


bytes := 512; 


CVT_BUFF_ADDR(errnum, read_f, io buff _addr, bytes*num_chunks, 


end; 


buff_rdb ptr, buff_offset) ; 


if errnum > 0 then 
RELSPACE (ord(req ptr), b_sysglobal_ptr) 


else 
begin 


{ continue if no errors yet } 


ADJ_IO_CNT(true, ext_ptr*.buff rdb ptr); { prevent swapout } 


{ add request to pcb chain } 


INTSOFF(allints, prevints) ; 

leftlink := pointer(pcb ptr*.req_ chain.header.bkwd_link + b_sysglobal ptr) ; 
ENQUEUE (req _ptr*.pcb chain.header, leftlink*, b_sysglobal ptr) ; 

INTSON (prevints) ; 


{ call appropriate disk driver } 


p.£nctn_code := dskio; 


p.req 


= req ptr; 


CALLDRIVER(errnum, req ptr“.cfigptr, @p); { call dskio } 
if errnum > 0 then 


begin 


end 
end 


{ diskio } 


ADJ_IO_CNT(false, ext_ptr“.buff rdb ptr); { allow swapout on errors } 
CANCEL_REQ(req ptr) ; 


procedure DRIVERCALL(* var errnum: integer; dev_index: integer; 


iat 


parameters: param _ptr *) ; 


[BARRIER KKK HERE RRR KER ERE RRR REE RE REE ERRERERER ERE REREREKE | 


{* 
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1: 283. {* Description: Device-independent driver call *} 
1: 284. {* 
*} 
1: 285. {* Input Parameters: Index into configinfo, and call- *} 
1: 286. {* specific parameter block *} 
1: 287. {* 
*} 
1: 288. {* Output Parameters: Only through pointers in parameter blk *} 
1: 289. {* 
x} 
1: 290. {* Side Effects: Driver routine dependent. *} 
1: 291. {* 
*} 
1: 292. {* Special Conditions of Use: none *} 
1: 293. {* 
ba 
1: 294. {* Error Conditions: *} 
1: 295. {* 
*} 
1: 296. [BARRIER HK KKK RE RIRIRKRR ERE RHR KER ERE RARER RE RERERE REE RERERERE | 
1: 297. 
1: 298. begin 
1: 299. CALLDRIVER(errnum, configinfo[dev_index], parameters) 
1: 300. end; { drivercall } 
1: 301. 
1: 302. 
1: 303. procedure LINK_TO PCB(* req ptr: reqptr_type *); 
1: 304. 
1: 305. [RARER HHH HR RE RIERERKRR ERE RRR HERE E REE ERREREREREREERERERERE | 
1: 306. {* 
*} 
1: 307. {* Description: link passed request to current process' *} 
1: 308. {* ctrl blk and initialize all but respec_info fields *} 
1: 309. {* 
*} 
1: 310. {* Input Parameters: Pointer to request block *} 
1: 311. {* 
*} 
1: 312. {* Output Parameters: none *} 
1: 313. {* 
*} 
1: 314. {* Side Effects: *} 
1: 315. {* 
*} 
1: 316. {* Special Conditions of Use: none *} 
1: 317. {* 
*} 
1: 318. {* Error Conditions: *} 
1: 319. {* 
*} 
1: 320. [RA RRR IRR RRR KR RE RIE IRR R ER ERKRKKRR ARERR REE REREER ERE REREREEE | 
1: 321. VAR 
1: 322. prevints: intson_type; 
1: 323. cur_pceb ptr: ptr_pcb; 
1: 324. leftlink: reqptr_type; 
1: 325. pblk_in_ pcb: ptrblk_type; 
1: 326. 
1: 327. begin 
1: 328. with req ptr* do 
1: 329. begin 
1: 330. peb_chain.kind := reqblk_type; 
1: 331. reqstatus.reqsrv_f := active; 
1: 332. reqstatus.reqabt_f := false; 
1: 333. pblk_in_pcb := @blk_in pcb; 
1: 334. pblk_in_pcb* := [i_o]; 
1: 335. block_p f := false; 
1: 336. hard_error := 0; 
1: 337. INTSOFF(allints, prevints) ; 
1: 338. cur_peb ptr := pointer(c_ pcb ptr) ; 
1: 339. leftlink := pointer(cur_pcb ptr*.req chain.header.bkwd_link + 
1: 340. b_sysglobal ptr) ; 
1: 341. ENQUEUE (pcb chain.header, leftlink*.pcb_ chain.header, 
1: 342. b_sysglobal ptr) ; 
1: 343. INTSON (prevints) 
1: 344. end 
1: 


345. end; { link_to_pcb } 
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1: 346. 
1: 347. 
1: 348. {$S fs3} 
1: 349. 
1: 350. procedure DOWN(* var errnum: integer; config ptr: ptrdevrec; 
1: 351. callers config ptr: ptrdevrec; enter_at: integer *) ; 
1: 352. 
1: 353. [RARER KERR ERIE KR KER EKER KERR RIKER ARERR ER ERR ER EER REREREKE | 
1: 354. {* 
x} 
1: 355. {* Description: Undo what UP did *} 
1: 356. {* 
*} 
1: 357. {* Input Parameters: Pointer to configinfo record of device *} 
1: 358. {* to be DOWNed, pointer to hierarchically lower configinfo *} 
1: 359. {* (or nil if none lower); enter_at allows for several entry*} 
1: 360. {* points (0 is standard value except when called from UP *} 
1: 361. {* 
*} 
1: 362. {* Output Parameters: none *} 
1: 363. {* 
xy 
1: 364. {* Side Effects: UNLOAD_DRIVER, dunattach and ddown may be *} 
1: 365. {* called. Semaphore is cleared when enter _at > 1. *} 
1: 366. {* 
*} 
1: 367. {* Special Conditions of Use: none *} 
1: 368. {* 
*} 
1: 369. {* Error Conditions: only error is: I/O still in progress *} 
1: 370. {* 
*} 
1: 371. [BARRIER RRR RR ERR KR KERR ERR EKER ERR ERR ER ERK EERE RERERERE | 
1: 372. 
1: 373. LABEL 
12-374: 1, 2, 3; 
1: 375. 
1: 376. VAR 
1: 377. err2: integer; 
1: 378. p: params; 
1: 379. pdrvrec: “drvrec; 
1: 380. 
1: 381. begin 
1: 382. with config _ptr* do 
1: 383. begin 
1: 384. errnum := 0; 
1: 385. pdrvrec := pointer (drvrec_ptr) ; 
1: 386. if pdrvrec = nil then 
1: 387. exit (DOWN); { only until all configinfos are configurable } 
1: 388. 
1: 389. { test for branch to internal entry points for backing out of UP on errors } 
1: 390. 
1: 391. if enter_at > 0 then 
Ti 392:, begin 
1: 393. if enter_at = 1 then goto 1; 
1: 394. if enter_at = 2 then goto 2; 
1: 395. if enter_at = 3 then goto 3; 
1: 396. end; 
1: 397. 
1: 398. if entry pt = ord(nil) then 
1: 399. exit (DOWN); { device not currently "upped" } 
1: 400. 
1: 401. p.still_inuse := false; 
1: 402. if callers_config_ptr <> nil then 
1: 403. begin 
1: 404. p.£nctn_code := dunattach; 
1: 405. p.o_configptr := callers _config_ptr; 
1: 406. CALLDRIVER(err2, config ptr, @p) { unattach the sub driver } 
1: 407. end; 
1: 408. if permanent or p.still_inuse then 
1: 409. exit (DOWN); { keep device up } 
1: 410. 
1: 411. 1: WAIT_SEM(pdrvrec*.sem, []); 
1: 412. p.fnctn_code := ddown; 
Lie 413. CALLDRIVER(err2, config ptr, @p); { down the device } 
1: 414. if enter_at = 0 then 
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1: 415. if err2 > 0 then 

1: 416. begin 

1: 417. errnum := err2; 

1: 418. SIGNAL_SEM(pdrvrec% . sem) ; 

1: 419. exit (DOWN) ; { I/O still in progress } 

1: 420. end; 

1: 421. 

1: 422. 2: entry _pt := ord(nil); 

1: 423. with pdrvrec* do 

1: 424. begin 

1: 425. nusers := nusers - 1; 

1: 426. if nusers = 0 then { driver no longer in use } 

1: 427. if kres_addr = ord(nil) then 

1: 428. UNLOAD _DRIVER(err2, e pt); 

1: 429. end; 

1: 430. 

1: 431. 3: SIGNAL_SEM(pdrvrec’ .sem) ; 

1: 432. if required_drvr <> nil then 

1: 433. DOWN(err2, required _drvr, config ptr, 0); 

1: 434. end 

1: 435. end; { down } 

1: 436. 

1: 437. 

1: 438. 

1: 439. {$S krgenio } 

1: 440. 

1: 441. procedure UP(* var errnum: integer; config ptr: ptrdevrec; 

1: 442. callers _config_ ptr: ptrdevrec *); 

1: 443. 

1: 444, [BAHAR HRI RR KEKE RIKER IR IKKE KERIKERI E RARER EERE REREREERERERK | 

1: 445. {* 

*} 

1: 446. {* Description: Up drivers "above" this, load driver. *} 
1: 447. {* initialize driver, and attach "lower" drivers. *} 
1: 448. {* 

*} 

1: 449. {* Input Parameters: Pointer to configinfo record of device *} 

1: 450. {* to be UPed, pointer to hierarchically lower configinfo *} 

1: 451. {* (or nil if none lower) *} 
1: 452. {* 

*} 

1: 453. {* Output Parameters: none *} 
1: 454. {* 

*} 

1: 455. {* Side Effects: may call LOAD _DRIVER, dinit and dattach *} 
1: 456. {* 

*} 

1: 457. {* Special Conditions of Use: none *} 
1: 458. {* 

*} 

1: 459. {* Error Conditions: *} 
1: 460. {* 

*} 

1: 461. [RRR K HHH RIKER KEKE RIKER IR IRR ERE EAE R KEKE RARER EERE REREREERERERK | 

1: 462. 

1: 463. 

1: 464. VAR 

1: 465. err2: integer; 

1: 466. p: params; 

1: 467. pdrvrec: “drvrec; 

1: 468. 

1: 469. 

1: 470. begin 

1: 471. with config ptr* do 

1: 472. begin 

1: 473. errnum := 0; 

1: 474. 

1: 475. pdrvrec := pointer(drvrec_ptr) ; 

1: 476. if pdrvrec = nil then 

1: 477. exit (UP) ; { only until all configinfos are configurable } 
1: 478. 

1: 479. if entry pt <> ord(nil) then 

1: 480. begin { already UPed } 

1: 481. if callers_config_ptr <> nil then 

1: 482. begin 

1: 483. p.fnctn_code := dattach; 


- Page 78 of 141 - 


6 22? Device Drivers Manual 


* * * * * 


* 
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540. 
541. 


542. 
543. 


544. 
545. 


546. 
547. 


548. 
549. 


550. 
551. 


552. 
553. 


p.n_configptr := callers _config_ptr; 
CALLDRIVER(errnum, config ptr, @p) { attach the sub-driver } 
end; 
exit (UP) 
end; 


if required_drvr <> nil then 

begin { bring up the required driver before this one } 
UP(errnum, required drvr, config ptr) ; 
if errnum > 0 then exit (UP) 

end; 


pdrvrec := pointer(drvrec_ptr) ; 
with pdrvrec* do 
begin 
WAIT_SEM(sem, []); 
if nusers = 0 then 
if kres_addr <> ord(nil) then 
e pt := kres_ addr { kernel resident driver, no need to load } 


else 
begin 
LOAD_DRIVER(errnum, e pt, pointer (addrdrivrname) ) ; 
if errnum > 0 then 
begin 
DOWN(err2, config ptr, callers config_ ptr, 3); { back out & clear sem } 
exit (UP) 
end 
end; 


entry pt = e pt; 
nusers := nusers + 1; 


p.fnctn_code := dinit; 

CALLDRIVER(errnum, config ptr, @p); { initialize the driver } 

if errnum > 0 then 

begin 
DOWN(err2, config ptr, callers config ptr, 2); { back out & clear sem } 
exit (UP) 

end; 

SIGNAL_SEM (sem) ; 

end; 


if callers_config_ ptr <> nil then 
begin 
p.fnctn_code := dattach; 
Pp.n_configptr := callers _config_ptr; 
CALLDRIVER(errnum, config ptr, @p); { attach the sub-driver } 
if errnum > 0 then 
DOWN(err2, config ptr, callers_config_ ptr, 1); { back out } 
end 
end 


end; { up } 


procedure ALARM FIRES(* alarm: integer *) ; 
[RAHI KERRIER ERIK KKK RRR K KERR EERE REE RE RE REREERERERK | 


{* 

{* Description: driver alarms call ALRM, which calls this *} 

{* 

{* Input Parameters: alarm number is in alarm on entry *} 

{* 

{* Output Parameters: none *} 
{* 

{* Side Effects: 

{* 

{* Special Conditions of Use: none *} 
{* 


{* Error Conditions: 


{* 


- Page 79 0f 141 - 


Alpha Draft -- 11 January 1984 


6 SF Device Drivers Manual Alpha Draft -- 11 January 1984 


* 


PO OO 


554. [RRR H HHH HRI R KERIKERI ERR EKER ARERR A RE REE KERR REREERERERK | 
555. VAR 
556. errnum: integer; 
557. p: params; 
558. 
559. begin 
560. with alarm_table[alarm] do 
561. begin 
562. INTSON (intstat) ; 
563. p.fnctn_code := dalarms; 
564. p.intpar := alarm; 
565. CALLDRIVER(errnum, cfg ptr, @p) 
566. end 
567. end; {alarm_fires } 
568. 
569. procedure ALARM ASSIGN(* var alarm: integer; pdr: ptrdevrec; 
570. status: intson_type *); 
571. 
572. [BAHAR HERR ER KERR RIKER IR EKER ERIE KER ERE EERE ERE REREREERERERK | 
573. {* 

* 
574. {* Description: Call ALARMASSIGN while providing for correct *} 
575. {* driver to be called when alarm fires. *} 
576. {* 

* 
577. {* Input Parameters: pointer to this devices configinfo rec. *} 
578. {* and desired interrupt priority during alarm execution *} 
579. {* 

* 
580. {* Output Parameters: alarm number (=0 when none available) *} 
581. {* 

* 
582. {* Side Effects: *} 
583. {* 

* 
584. {* Special Conditions of Use: none *} 
585. {* 

* 
586. {* Error Conditions: non available when alarm = 0 *} 
587. {* 

* 
588. [RRR ER RHR RIKER IR KKK EKER IRE RRR RARER ERE REREREERERERK | 
589. 
590. begin 


591. ALARMASSIGN(alarm, ord (@ALRM) ) ; 
592. with alarm_table[alarm] do 
593. begin 


594. cfg_ptr := pdr; 
595. intstat := status 
596. end 
597. end; { alarm_assign } 
598. 
599. function BADCALL(* parameters: param_ptr ): integer *); 
600. [RAHI RR KEK RRR E RIKER KEKE RIKER EEK EER ER EERE REREREERERERK | 
601. {* 
* 
602. {* Description: Illegal driver. *} 
603. {* 
* 
604. {* Input Parameters: standard parameter record *} 
605. {* 
* 
606. {* Output Parameters: errnum returned as function result *} 
607. {* 
* 
608. {* Side Effects: *} 
609. {* 
* 
610. {* Special Conditions of Use: none *} 
611. {* 
* 
612. {* Error Conditions: Always causes an error *} 
613. {* 
* 
614. [RRR K ERR KERIKERI KR RERE RIE KKK EERE RE REREREERERERK | 


- Page 80 of 141 - 


6 SF Device Drivers Manual Alpha Draft -- 11 January 1984 


* * * 


* 


* * * * 


* 


a a ee a a a ees ce SS ee Se eee Se ee oe ey 


615. 
616. 
617. 
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625. 


626. 
627. 
628. 


629. 
630. 


631. 
632. 


633. 
634. 


635. 
636. 


637. 
638. 


639. 
640. 
641. 
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643. 
644. 
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648. 


649. 
650. 


651. 
652. 


653. 
654. 


655. 
656. 


657. 
658. 


659. 
660. 


661. 
662. 
663. 
664. 
665. 
666. 
667. 
668. 
669. 
670. 
671. 
672. 
673. 
674. 
675. 
676. 


begin 
if parameters*.fnctn_code = dinterrupt then 
SYSTEM _ERROR(syserrbase+9) ; { interrupts would ignore returned errnum } 


badeall := errbase+9; 
end; { badcall } 


function CHAIN FORWARD(* current: linkage ): reqptr_ type *); 
[BAHAR RHR KERR KR ER IRE RE RE RIE REE KERR ER KEKE RE RERKERERERK | 


{* 


{* Description: Use forward link of relptr to point to next *} 
{* request block *} 
{* 


{* Input Parameters: linkage pointing to next request block *} 


{* 


{* Output Parameters: pointer to the request block *} 
{* 


{* Side Effects: *} 
{* 


{* Special Conditions of Use: callable from drivers *} 

{* 

{* Error Conditions: *} 
{* 


[RAHA HRI ER KERRIER ERIE KER ERE RIERA REE RER EERE RE REREERERERK | 


begin 
CHAIN FORWARD := pointer(current.fwd_link+b_ sysglobal_ptr-sizeof (Rb_headT) ) 


end; { chain_forward } 


function SCC(* parameters: param ptr ): integer *); 
[RAHI KERRIER ERIE EKER ERIE KER KERR ERE ERE REREREERERERK | 


{* 

{* Description: driver for 2-port SCC *} 

{* 

{* Input Parameters: standard parameter record *} 

{* 

{* Output Parameters: errnum returned as function result *} 

{* 

{* Side Effects: *} 
{* 

{* Special Conditions of Use: only for initialization of SCC *} 

{* 

{* Error Conditions: a 
{* 


[BRR HHH HRI KERRI KR REE IR KKK EKER IER KEKE EERE REE RE REREREERERERK | 


CONST 
ebase = 680; 


TYPE 
rscb = record { this is the control block for the SCC. 1 pointer for 
each channel's control block } 
a, b: ptrdevrec; 
end; 


{$S init} 


procedure SCINIT; 
[RARER KERRI KERRIER ERE KERR EREE EE REREREE 
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{* internal subroutine to initialize SCC chip *} 
[RAHA HR RK K ERE RARER ERE REE EREEERREREREE | 


VAR 
cb_rec: “rscb; 
prevints: intson_type; 
temp: longint; 


begin 
INTSOFF(rsints, prevints) ; 


if not GETSPACE (sizeof (rscb), b_sysglobal_ptr, temp) then 
SCC := ebaset+3 


else 
begin 
parameters’ .configptr*®.cb addr := temp; 
cb_rec := pointer (temp) ; 
cb_rec*.a := nil; 
cb_rec*.b := nil; 
scc := 0; { no errors } 
end; 
INTSON (prevints) 


end; { scinit } 


procedure SCATTACH; 
[RAH ER RRR RIKER ERIK RE REE ERKKRRERER KEE REE REREEEERE | 


{* internal subroutine to attach a or b driver to SCC *} 
[RRR RHR ER KEK RRR ER KR IKKE RE RARE RRR EKER EE RERERERE } 


VAR 
cb_rec: “rscb; 


begin 
with parameters’ do 
begin 
cb_rec := pointer (configptr*.cb_ addr) ; 
if n_configptr*.iochannel = 0 then 
cb_rec*.a := n_configptr 
else 
cb_rec*.b := n_configptr; 
scc := 0; 
end 


end; { scattach } 
{$S fs3} 


procedure SCDOWN; 
[RRR K RHR KERRI KEKE EIR E KERR KER EREERERERE | 


{* internal subroutine to down scc devices *} 
[RRR R KKH ER EKER HERE EERE KERR EREREEEERERE | 


VAR 
prevints: intson_type; 


begin 
INTSOFF(rsints, prevints) ; 
with parameters*.configptr* do 


begin 
RELSPACE (cb_addr, b_sysglobal_ptr) ; 
cb_addr := ord(nil) 

end; 

INTSON (prevints) ; 

scc := 0 { no errors } 


end; { scdown } 


procedure SCUNATTACH; 
[RRR RR KEKE RRR E EIR RE RARE RRR KERR ER EERE REREREEKRE | 


{* internal subroutine to unattach a or b driver from SCC *} 
[RHR RRR ERR KKK RIKER KEKE RARER EKER RER EERE REREREEKEE | 


VAR 
cb_rec: “rscb; 


begin 
with parameters’ do 
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1: 753. begin 

1: 754. cb_rec := pointer (configptr*.cb_ addr) ; 

1: 755. with cb rec* do 

1: 756. begin 

Le 157: if o_configptr*.iochannel = 0 then 

1: 758. a:= nil 

1: 759. else 

1: 760. b := nil; 

1: 761. 

1: 762. still_inuse := ((a <> nil) or (b <> nil)); 

1: 763. end 

1: 764. end 

1: 765. end; { scunattach } 

1: 766. 

1: 767. [RRR R RRR RRR RRR R ERR ER RE R ERK RI RR ER ERIE ERR ERE RRR KER ERE REE RRERERKEKE 
1: 768. 

1: 769. {$S krgenio} 

1: 770. 

1: 771. begin { scc } 

1: 772. case parameters’.fnctn_code of 

1: 773. 

1: 774. dinit: SCINIT; { call internal subroutine in init segment } 

1: 775. 

1: 776. ddown: SCDOWN; { call internal subroutine in non-res segment } 

1: 777. 

1: 778. dattach: SCATTACH; { call internal subroutine in non-res segment } 

1: 779. 

1: 780. dunattach: SCUNATTACH; { call internal subroutine in non-res segment } 
1: 781. 

1: 782. otherwise 

1: 783. SCC := ebase + 2; { no other functions allowed for 2-line SCC } 

1: 784. 

1: 785. end { case } 

1: 786. end; { SCC } 

1: 787. 

1: 788. 

1: 789. {$S nigenio} 

1: 790. 

1: 791. procedure SEQENTIO(* var errnum: integer; dev_index: integer; io_buff_addr: absptr; 
1: 792. length: longint; read_f: boolean; pcb ptr: ptr_pcb; 
1: 793. var req ptr: reqptr_type *); 

1: 794. 

1: 795. [BAHAR RRR KERR ERIE IKKE KERIKERI RAE EERE REE RE REREREERERERK | 

1: 796. {* 

*} 

1: 797. {* Description: Start up or queue a sequential read/write. *} 

1: 798. {* 

*} 

1: 799. {* Input Parameters: configinfo index, memory address, *} 

1: 800. {* length in bytes, read/write flag, process' peb_ptr. *} 

1: 801. {* 

*} 

1: 802. {* Output Parameters: Req ptr is the address of the newly *} 

1: 803. {* created request block. *} 
1: 804. {* 

*} 

1: 805. {* Side Effects: Device dependent driver is invoked. *} 
1: 806. {* 

*} 

1: 807. {* Special Conditions of Use: none *} 
1: 808. {* 

*} 

1: 809. {* Error Conditions: *} 
1: 810. {* 

*} 

1: 811. [RAHI ER KERRIER ERR EKER RARER KEKE KERR EERE REREREERERERK | 

1: 812. 

1: 813. 

1: 814. VAR 

1: 815. d_ptr: absptr; 

1: 816. ext_ptr: seqextptr_type; 

1: 817. prevints: intson_type; 

1: 818. leftlink: link_ptr; 

1: 819. p: params; 

1: 820. pblk_in_pcb: ptrblk_type; 

1: 821. 
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End of File: 


1: 822. begin 

1: 823. errnum := 0; 

1: 824. with configinfo[dev_index]* do 

1: 825. if preq_avail then 

1: 826. begin { use pre-allocated request block } 

1: 827. preq_ avail := false; 

1: 828. d_ptr := ord(permreq_ ptr) 

1: 829. end 

1: 830. else 

1: 831. if not GETSPACE (sizeof (reqblk)+sizeof (seq extend), b_sysglobal_ptr, d_ptr) then 
1: 832. errnum := errbase + 10; 

1: 833. if errnum = 0 then 

1: 834. begin 

1: 835. req ptr := pointer(d ptr); { return pointer to the request } 
1: 836. ext_ptr := pointer(d_ptr + sizeof(reqblk)); { point to extension area } 
1: 837. 

1: 838. { initialize the request block } 

1: 839. 

1: 840. with req ptr* do 

1: 841. begin 

1: 842. peb_chain.kind := reqblk_type; 

1: 843. reqstatus.reqsrv_f := active; 

1: 844. reqstatus.reqabt _f := false; 

1: 845. pblk_in_peb := @blk_in_ pcb; 

1: 846. pblk_in_pcb* := [i_o]; 

1: 847. block_p f := false; 

1: 848. hard_error := 0; 

1: 849. operatn := ord(read_ f) ; 

1: 850. cfigptr := configinfo[dev_index] ; 

1: 851. req_extent := ord(ext_ptr) ; { point the request block to the extension } 
1: 852. end; 

1: 853. 

1: 854. { initialize the extension data block } 

1: 855. 

1: 856. with ext_ptr* do 

1: 857. begin 

1: 858. read_flag = read_f; 

1: 859. num_bytes := length; 

1: 860. xfer_count := O; 

1: 861. CVT_BUFF_ADDR(errnum, read_f, io buff addr, length, buff_rdb ptr, 
1: 862. buff_offset) ; 

1: 863. end; 

1: 864. if errnum > 0 then 

1: 865. with configinfo[dev_index]* do 

1: 866. if permreq_ ptr = req ptr then 

1: 867. preq_avail := true 

1: 868. else 

1: 869. RELSPACE (ord(req ptr), b_sysglobal_ptr) 

1: 870. else 

1: 871. begin { continue if no errors yet } 

1: 872. ADJ_IO_CNT(true, ext_ptr*.buff_rdb ptr); { prevent swapout } 
1: 873. 

1: 874. { add request to pcb chain } 

1: 875. 

1: 876. INTSOFF (allints, prevints) ; 

1: 877. leftlink := pointer(pcb ptr*.req_ chain.header.bkwd_link + b_sysglobal ptr) ; 
1: 878. ENQUEUE (req _ptr*.pcb chain.header, leftlink*, b_sysglobal ptr) ; 
1: 879. INTSON (prevints) ; 

1: 880. 

1: 881. { call driver to start the request } 

1: 882. 

1: 883. p.fnctn_code := seqio; 

1: 884. p.req := req ptr; 

1: 885. CALLDRIVER(errnum, req ptr“.cfigptr, @p); { call seqio } 

1: 886. if errnum > 0 then 

1: 887. begin 

1: 888. ADJ_IO_CNT(false, ext_ptr*.buff rdb ptr) ; { allow swapout on errors } 
1: 889. CANCEL _REQ(req ptr) ; 

1: 890. end 

1: 891. end 

1: 892. end 

1: 893. end; { seqentio } 

1: 894. 

1: 895. end. 


GENIO. TEXT 
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Directory of files in Cross Reference: 


1: GENIO. TEXT 


level = 1. 

a 1: 669*, 1: 694=, 1: 715=, 1: 758=, 1: 762. 

abspage 1: 227=. 

absptr 1: 31, 1: 33, 1: 34, 1: 59, 1: 64, 1: 98, 1: 101, 1: 173, 
1: 815. 

active 1: 203, 1: 331, 1: 843. 

add 1: 98*, 1: 101*. 

addr 1: 107%. 

addrdriv 1: 31*, 1: 505. 

adj_io cil: 253, 1: 269, 1: 872, 1: 888. 

alarm 1: 49*, 1: 52%, 1: 560, 1: 564, 1: 591, 1: 592. 

alarm_ta 1: 92*, 1: 560, 1: 592. 


alarmass 1: 591. 
allints 1: 132, 1: 257, 1: 337, 1: 876. 


asynctr 1: 24. 

b 1: 669*, 1: 695=, 1: 717=, 1: 760=, 1: 762. 

b_sysglo 1: 136, 1: 147, 1: 190, 1: 250, 1: 258, 1: 259, 1: 340, 1: 342, 
1: 642, 1: 688, 1: 736, 1: 831, 1: 869, 1: 877, 1: 878. 


bkwd_lin 1: 258, 1: 339, 1: 877. 

bkwdlink 1: 230=. 

blk_in p 1: 138, 1: 205, 1: 333, 1: 845. 
blkno 1: 237=. 


block_no 1: 65*, 1: 184, 1: 185, 1: 237. 

block_p_ 1: 207=, 1: 335=, 1: 847=. 

buff off 1: 246, 1: 862. 

buff _rdb 1: 246, 1: 253, 1: 269, 1: 861, 1: 872, 1: 888. 

bytes 1: 178%, 1: 242=, 1: 244=, 1: 245. 

ce peb pt 1: 338. 

callers 1: 44*, 1: A7*, 1: 402, 1: 405, 1: 481, 1: 484, 1: 508, 1: 520, 
1: 526, 1: 529, 1: 532. 

cb_addr 1: 692=, 1: 713, 1: 736, 1: 737=, 1: 754. 

cb rec 1: 681*, 1: 693=, 1: 694, 1: 695, 1: 708*, 1: 713=, 1: 715, 1: 717, 
1: 749*, 1: 754=, 1: 755. 

cfg _ptr 1: 93*, 1: 565, 1: 594=. 

cfigptr 1: 140, 1: 210=, 1: 266, 1: 850=, 1: 885. 

chained 1: 186. 

config p 1: 40*, 1: 43*, 1: 46*, 1: 382, 1: 406, 1: 413, 1: 433, 1: 471, 
1: 485, 1: 492, 1: 508, 1: 517, 1: 520, 1: 530, 1: 532. 

configin 1: 183, 1: 210, 1: 299, 1: 824, 1: 850, 1: 865. 

configpt 1: 692, 1: 713, 1: 734, 1: 754. 

cur_peb_ 1: 323*, 1: 338=, 1: 339. 

current 1: 68*, 1: 642. 

evt_buff 1: 245, 1: 861. 

d ptr 1: 173*, 1: 190, 1: 195, 1: 196, 1: 815*, 1: 828=, 1: 831, 1: 835, 
1: 836. 

dalarms 1: 563. 

dataok 1: 222. 

datastat 1: 222=. 

dataused 1: 226=. 

dattach 1: 483, 1: 528, 1: 778. 

ddown 1: 412, 1: 776. 

dequeue 1: 136. 

dev_inde 1: 56*, 1: 59*, abs 63*, 1: 183, 1: 210, 1: 299, 1: 824, 1: 850, 


1: 865. 
dinit 1: 516, 1: 774. 
dinterru 1: 617. 
disk ext 1: 190. 


disk_io_ 1: 66. 
driver i 1: 28%. 
driverde 1: 14. 
drvrec 1: 27*, 1: 379, 1: 467. 


drvrec_p 1: 385, 1: 475, 1: 496. 

dskio 1: 264. 

dunattac 1: 404, 1: 780. 

e pt Le 33*, 1: 428, 1: 502=, 1: 505, 1: 513. 
ebase 1: 664*, 1: 689, 1: 783. 

enqueue 1: 259, 1: 341, 1: 878. 


enter_at 1: 47*, 1: 391, 1: 393, 1: 394, 1: 395, 1: 414. 
entry pt 1: 398, 1: 422=, 1: 479, 1: 513=. 
er 1: 107*. 
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err 1: 
err2 1: 377*, 
1: 508, 
errbase 1: 
errnum 1: 
1: 191=, 
1: 417=, 
1: 518, 
1: 861, 
exit 1: 144, 
1: 509, 


ext_addr 1: 183. 
ext_conf 1: 176%, 
ext_disk 1: 176. 
ext_ptr 1: 174*, 


1: 851, 
extdptr_ 1: 174. 
external 1: 
extra_da 1: 


extra_li 1: 
fileid 1: 225=. 
filler 1: 
fnctn_co 1: 264=, 
1: 772, 
fwd_link 1: 642. 
fwdlink 1: 229=. 
genio Li 
getspace 1: 190, 


globalda 1: 
hard_err 1: 208=, 
header 1: 

1: 877, 
hwint 1: 
ilo 1: 139, 
implemen 1: 
int4 Ls 
interfac 1: 
intpar 1: 564=. 
intsoff 1: 132, 
intson 1: 137, 
intson_t 1: 
intstat 1: 
io_buff_ 1: 
io_mode 1: 238=, 
iochanne 1: 714, 
kind 1: 202=, 
kres_add 1: 
label 1: 373. 


last_dat 1: 235=. 
last_fwd 1: 234=. 
leftlink 1: 177%, 

1: 878. 
length 1: 
link_ptr 1: 
linkage 1: 
mmprimit 1: 
mode 1: 
n_config 1: 
name 1: 
num_blok 1: 
num_byte 1: 
num_chun 1: 
nusers 1: 
o_config 1: 405=, 
operatn 1: 209=, 


177, 


484=, 


185. 
859=. 
239=, 


Pp 1: 172* 
1: 406, 
1: 516, 
1: 565, 
pagelabe 1: 
param_pt 1: 
paramete 1: 
1: 734, 
params 1: 172, 
pathname 1: 


pblk_in_ 1: 129*, 


98%, 
1: 406, 
1: 520, 

85*, 1: 188, 
4o*, 1: 43%, 
1: 193, 

1: 473=, 

1: 530, 

1: 864, 
1: 387, 

1: 521. 


1: 101%. 
1: 413, 


1: 399, 


1: 183=, 


1: 196=, 
1: 856, 


1: 211, 


: 101, 
: 235. 
: 234. 


: 223=. 


1: 831. 


136, 


65, 


1: 337, 

1: 343, 
94, 

562, 
64%, 


427, 


41, 1s 
41*, 1: 
1: 752, 

1: 378, 
89. 

1: 138=, 


57%, 


1: 466, 


1: 842=. 


ay 


PRPPRPRPRPR 


Ly 


415, 
532. 
191, 


245, 
485, 
531, 
885, 
409, 


185, 


: 216, 


872, 


103, 


412=, 


848=. 


: 233, 


ay 


501, 


: 259, 


PRPPR 


184, 


187, 
714, 


425, 


265, 
412, 
528, 
883, 


772. 


: 557, 


139, 


1: 619, 
46*, 1: 
1: 249, 
1: 492, 
1: 556*, 
1: 886. 


1: 237. 


1: 483=, 


1: 258, 


1: 846. 


1: 502. 


BR 
aN 
BPR 
U1 00 


1: 417, 


56*, 


1 


1 


PRPRPPR 


PRPPR 


1: 428, 
832. 


266, 
493, 
565, 


: 516=, 


: 259, 


339=, 


: 239, 


: 238. 


717. 


500, 


378*, 
466%, 
530, 
885. 


: 299, 


: 205=, 


59*, 1: 


1: 267, 


1: 505, 


1: 823=, 


1: 528=, 


1: 339, 


1: 341, 


1: 859, 


1: 514=, 


ay 


401, 
483, 
: 557*, 


BPR 


1: 617, 


1: 206=, 
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1: 433, 


63*, 182=, 
299, 
506, 


832=, 


PRPPR 


1: 487, 1: 493, 


1: 816*, 


1: 563=, 


1: 341, 


1: 879. 
1: 730, 


1: 818%, 


1: 861. 


1: 514. 


1: 404, 
484, 
1: 563, 


ay 


1: 692, 


1: 325*, 


1: 465*, 


1: 836=, 


1: 


1: 


Ts 


1: 


PRR 


PRPR 


188=, 
384=, 
517, 
833, 


617, 


341, 


817. 


877=, 


405, 
485, 


: 564, 


711, 


: 333=, 
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1: 334=, 
peb_chai 1: 136, 
peb_ptr 1: 
pdr 1: 
pdrvrec 1: 379%, 

1: 475=, 
permanen 1: 408. 
permreq_ 1: 141, 
pointer 1: 183, 

1: 496, 

1: 877. 
preq_ava 1: 143=, 
prevints 1: 128%, 


1: 343, 

1: 876, 
proc pri 1: 
ptr_pcb 1: 
ptrblk_t 1: 129, 
ptrdevre 1: 
ptrpathn 1: 
raw_io 1: 241. 
rb_headt 1: 642. 
read f 1: 

1: 849, 


read fla 1: 236=, 
relpage 1: 228=. 
relspace 1: 147, 
req 1: 
req_chai 1: 258, 
req_exte 1: 211=, 
req ptr 1: 

1: 266, 

1: 884, 
reqabt_f 1: 204=, 
reqblk 1: 107, 
reqblk_t 1: 202, 
regqptr_t 1: 
reqsrv_f 1: 203=, 
reqstatu 1: 203, 
required 1: 432, 
rscb 1: 667*, 
rsints 1: 686, 
sem 1: 
semaphor 1: 
seq_exte 1: 
segextpt 1: 
seqio 1: 
signal_s 1: 
sizeof 1: 
soft_hdr 1: 
status 1: 
still_in 1: 
strt_blo 1: 
syserrba 1: 
system_e 1: 
temp 1: 
unit 1: 
version 1: 
volume 1: 
wait_sem 1: 
with_hea 1: 
without_ 1: 
xfer_cou 1: 


831. 
816. 

883. 
418, 

190, 
219, 


401=, 
237. 


618. 
683*, 


224=. 
411, 
187. 
218. 
240=, 


Procedures 


alarm_as 1: 
alarm_fi 1: 
alrm 1: 
calldriv 1: 
1: 530, 
cancel r 1: 
diskio 1: 
down 1: 
1: 520, 
driverca 1: 


105*, 


1: 820*, 
1: 202, 
60*, 1: 
49*, 1: 

1: 385=, 

1: 476, 


1: 828, 
1: 195, 
1: 505, 


1: 825, 
1: 132, 
1: 682*, 
1: 879. 
20. 
60, Ts 
1: 175, 
40, 1: 
89x, 1: 


60*, 1: 
1: 858, 
1: 858=. 


1: 250, 
54*, 1: 
1: 339, 
1: 851=. 
38*, 1: 
1: 270, 
1: 885, 
1: 332=, 
1: 190, 
1: 330, 
38, 1: 
1: 331=, 
1: 204, 
1: 433, 
1: 681, 
1: 733. 
30*, 
30. 


1: 


1: 431, 
1: 190, 
1: 233=. 
50*, 1: 
1: 408, 
sex, 1: 
1: 688, 
1: 
29*, 1: 


1: 499. 


1: 860=. 


1: 
ai 


49x, 
52*, 
1: 591. 
40*, 1: 
1: 565, 
54*, 1: 
63*, 1: 
46*, 1: 
1: 532. 
56*, 1: 


1: 259, 
66*, 

594. 

1: 386, 


1: 866. 
1: 196, 


1: 827= 
1: 137, 


66, 
1: 325, 
43, 
98. 


65*, 


1: 736, 
107*, 
1: 877. 


61*, 


1: 196, 
1: 842. 
54, 


1: 331, 
1: 490, 
1: 688, 


411, 


1: 523. 
1: 196, 


595. 


1: 762=. 


618. 
1: 692, 


221=. 


569%. 
539*. 


103*, 
109%, 
151*. 
350*, 


278*. 


ray 


PPR 


PRPePR 


845=, 1: 846=. 
: 330, 1: 341, 
: 258, 1: 877. 
411, 1: 418, 
496=, 1: 497. 
: 258, 1: 338, 
642, 1: 693, 
867=. 
179%, 1: 257, 
686, 1: 698, 
323. 
820. 
44, 1: 46, 
186, 1: 187, 
861. 
869. 
134, 1: 141, 
66*, 1: 195=, 
328, 1: 835=, 
889. 
844=. 
831, 1: 836. 
61, 1: 66, 
843=. 
: 332, 1: 843, 
492. 
708, 1: 749. 
418, 1: 431, 
642, 1: 688, 
693. 
: 266, 1: 299, 
885. 
144, 1: 270, 
387, 1: 399, 


1: 341, 


1: 423, 


1: 339, 
1: 713, 


1: 260, 
1: 730*, 


1: 209, 


ay 
ND 
So 
o 


1: 844. 


1: 499, 


1: 831, 


1: 406, 
1: 889. 


1: 409, 


1: 754, 


1: 733, 


1: 218, 


BPR 
on 
ou 
Ce) 


1: 523. 


1: 413, 


1: 419, 
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1: 878. 


1: 467%, 


1: 475, 


1: 835, 


1: 337, 
1: 739, 


1: 236, 


1: 884=. 


ay 


: 259, 
1: 869, 


1: 836. 


1: 485, 


1: 433, 


1: 836, 


1: 817%, 


93, 1: 669. 


Ti, 245, 


1: 265, 
1: 878, 


1: 517, 


1: 508, 
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link_to_ 1: 38*, 1: 303*. 
load_dri 1: 98*, 1: 505. 
scattach 1: 702*, 1: 778. 
scdown 1: 724*, 1: 776. 

scinit 1: 675*, 1: 774. 
scunatta 1: 743*, 1: 780. 
segentio 1: 59*, 1: 791*. 
twigio 1: 107*. 

unload_d 1: 101*, 1: 428. 


up 1: 43*, 1: 441*, 1: 477, 1: 487, 1: 492, 1: 493, 1: 509, 1: 521. 
Functions 

badcall 1: 70*, %1: 599*, 1: 619=. 

chain _fo 1: 68*, 1: 623%, 1: 642= 

scc 1: 72*, 1: 646%, 1: 689=, 1: 696=, 1: 718=, 1: 740=, 1: 783=. 
Declaration Character : '*' 


Assignment Character : '=' 
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Cross Reference Listing: 


Beginning of file: HDISK.TEXT 


ee ey 


oO 


OAHU PWNHe 


UNIT HDISK; 


{ By 


Dave Offen } 


Alpha Draft -- 11 January 1984 


{ Copyright 1983, Apple Computer Inc. } 


{ By Wendell Henry 1/17/83 } 


{ For Profile compatible drives up to 32MB. For larger drives, make 
the following changes: 
- change assembly language routine in PROFASM 
so that checksum is not embedded in header. 


} 


{ o Convert this driver from a configurable Profile driver to a resident } 
{ generic driver of hard disks of Apple format. A device specific } 
{ configurable driver is called by HDISK. } 


{$IFC 0815} 


object/driverdefs .obj} 
driverdefs, 
object/hwint.obj} 
hwint, 
object/sysglobal .obj} 
globalda, 
object/procprims.obj} 
proc _prims, 
object/mmprim. obj} 
mmprimitives, 
object/asynctr.obj} 
asynctr, 
object/genio.obj} 
genio; 


procedure USE_HDISK( configptr: ptrdevrec) ; 


procedure CALL _HDISK( var error: int2; configptr: ptrdevrec; 
parameters: param ptr) ; 


procedure IODONE( drivecb ptr: hdiskcb_ ptr; prev_err: integer) ; 


function OKXFERNEXT( drivecb ) ptr: hdiskcb ) ptr): integer; 


{ $ENDC} 


function HDISKIO( parameters: param_ptr): integer; 


IMPLEMENTATION 


{$S krgenio} 


{$IFC not debug2} 
{$R-} { rangecheck off unless debug mode } 


{ SENDC} 
CONST 
syserrbase = 10650; 
errbase = 650; { error number base } 
premenderr = 658; { premature end of file in chained header record } 
vfyerr = 659; { header read verify error } 
ignorerr = 661; { error code when get timer interrupt requiring no action } 
cserr = -663; { data is returned but contains checksum or crc error } 
hd_err = 654; { hard error from profile itself } 
wait_int = 1; { wait-for-next-interrupt error code } 
readcmd = 0; { read command } 
{ 


writecmd = 1; 


write command } 
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1: 72. 
1) 73. 
As 74. function LOGGING: boolean; external; 
1: 75. 
2 76. procedure LOG(var errnum: integer; ptr_arr: longint); external; 
1; 77. 
a Ee 78. procedure START_DISK (drivecb ptr: hdiskcb_ptr) ; forward; 
1; 79. 
Ane 80. procedure START_NEW_REQUEST (drivecb ) ptr: hdiskcb ) ptr); forward; 
rT: 81. 
Tis 82. procedure CALL_HDISK; external ; 
1 83. 
Ti: 84. procedure USE_HDISK(* configptr: ptrdevrec *) ; 
1: 85. [RAR H HIRE RRR RRR RRR IERI RK ERE EKER RRA REE RRRRERERKR KEKE RERERKEKE | 
13 86. {* 
my 
rT; 87. {* Description: The device is a hard disk with Apple format *} 
1? 88. {* sectors and will be using HDISK to handle boi} 
1: 89. {* sector headers. 
*} 
1 90. {* 
‘8 
I; 91. {* Input Parameters: configptr points to configinfo entry. *} 
1 92. {* 
*} 
1: 93. {* Output Parameters: none *} 
13 94. {* 
3 
1: 95. [RARE KR RRR R ERIE ERE ERE REE ERE RE REE KER RE RERE REE RERERKEKE | 
1: 96. var 
Ey 97. ext_ptr: “ext_diskconfig; 
1; 98. 
1.3 99. begin 
1: 100. ext_ptr := pointer (configptr’.ext_addr) ; 
1: 101. ext_ptr*.hentry pt := ord(@HDISKIO); { HDISKIO can now be called } 
1: 102. end; { USE_HDISK } 
1: 103. 
1: 104. 
1: 105. 
1: 106. procedure FINISH_REQ ( drivecb ) ptr: hdiskcb ) ptr; success flag: boolean; 
1: 107. error: integer) ; 
1: 108. [RA RHRH RRR KERR ERE KIRKE REE RK EKER ER ER ERR RR EERE RK REKRRERERKEEKE | 
1: 109. {* 
*} 
1: 110. {* Description: Finish current request. *} 
1: 111. {* 
*} 
1: 112. {* Input Parameters: drivecb_ ptr points to control block. *} 
di L13; {* 
*} 
1: 114. {* Output Parameters: none *} 
Ue115; {* 
*} 
1: 116. {* Side Effects: none *} 
Ly 117. {* 
*} 
1: 118. {* Special Conditions of use: appropriate interrupts must *} 
1: 119. {* be off 
*} 
1: 120. {* 
*} 
1 121. {* Error Conditions: none *} 
1: 122. {* 
*} 
1: 123. [BARRIER RRR REE IR ERE EERE EER RRR ER ERR RRR ERE REE KEKRRERERKEKE | 
Li L24:. 
Lise 125; 
1: 126. VAR 
1: 127. errnum: integer; 
1: 128. succ_f: boolean; 
1: 129. 
1: 130. begin 
1: 131. with drivecb ptr*, cur_info_ ptr“ do 
1: 132. begin 
1: 133. succ_f := success flag; 
1: 134. 
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1: 135. with req hd ptr* do 

1: 136. if operatn <= 1 then 

1: 137. begin { read or write request } 

1: 138. if succ_f then 

1: 139. begin 

1: 140. if io_mode = chained hdrs then 

1: 141. xfer_count := xfer count + soft_hdr.dataused 

1: 142. else 

1: 143. xfer_count = xfer_count + 512; 

1: 144. if worstwarning <> 0 then 

Ty 145. begin 

1: 146. hard_error := worstwarning; 

1: 147. succ_f := false 

1: 148. end 

1: 149. end 

1: 150. else 

1: 151. begin { unsuccessful } 

1: 152. hard_error := error; 

1: 153. 

1: 154. {$IFC debug2} 

1: 155. if TRACE(DD, 1) then 

1: 156. writeln('*** PROFILE ERROR #: ', hard error) ; 
1: 157. { SENDC} 

1: 158. 

1: 159. end; 

1: 160. 

1: 161. UNFREEZE_SEG(buff_rdb_ ptr) ; { allow data to move } 
1: 162. ADJ_IO_CNT(false, buff_rdb ptr); { allow data to be swapped } 
1: 163. end 

1: 164. else 

1: 165. hard_error := error; 

1: 166. 

1: 167. UNBLK_REQ(req_hd ptr, succ_f) ; 

1: 168. 

1: 169. { remove from the top of the queue } 

1: 170. 

1: 171. DEQUEUE (req_hd_ ptr*.dev_ chain, b_ sysglobal_ptr) ; 

1: 172. req_hd_ptr := CHAIN FORWARD (req hd ptr*.dev_chain); { new head of request list } 
1; 173. cur_num_ requests := cur_num_ requests - 1; 

1: 174. if cur_num_requests > 0 then 

Ty 175: begin 

1: 176. if req_hd_ ptr = dummy req ptr then 

1: 177. begin { if dummy at head, skip over it and reverse its cylinder number } 
1: 178. dummy _req ptr“.reqspec_info := dummy req ptr“.reqspec_info + 
Lz -179.. $80000000; 

1: 180. req_hd ptr := CHAIN FORWARD (dummy req ptr“.dev_chain) ; 
1: 181. end; 

1: 182. START_NEW_REQUEST (drivecb ptr) ; 

1: 183. end 

1: 184. else 

1: 185. if int_prio = winints then 

1: 186. DISKSYNC (false); { allow contrast changes after I/O } 
1: 187. end 

1: 188. end; { FINISH_REQ } 

1: 189. 

1: 190. procedure NEXT_HDR ( var info: disk_extend; last: boolean) ; 

1: 191. [RARER KERRIER ERIE IRE ER ERE ERR ER ERE RARER ER ERK EKER RERERKEEKE 

1: 192. {* 

*} 

Ls, 193: {* Description: Update the next software header. *} 

1: 194. {* 

*} 

1: 195. {* Input Parameters: Info is the request block extension *} 

1: 196. {* containing the software header to be updated. Last is *} 

1: 197. {* true if this is the last header to be updated for this *} 

1: 198. {* request. Used by WRITEs only. *} 
1: 199. {* 

*} 

1: 200. {* Output Parameters: The updated soft_hdr in the request *} 

1: 201. {* 

*} 

1: 202. {* Side Effects: none *} 
1: 203. {* 

*} 

1: 204. {* Special Conditions of use: none *} 
1: 205. {* 


- Page 91 of 141 - 


6 2? Device Drivers Manual 


ee ee 


206. 
207. 


208. 
209. 
210. 
211. 
212. 
213. 
214. 
215. 
216. 
217. 
218. 
219. 
220. 
221. 
222. 
223. 
224. 
225. 
226. 
227. 
228. 
229. 
230. 
231. 
232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
241. 
242. 
243. 
244. 
245. 
246. 
247. 
248. 
249. 
250. 
251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 
268. 
269. 
270. 
271. 
272. 
273. 
274. 
275. 
276. 
277. 
278. 
279. 


{* Error Conditions: none 


{* 


[BARRIER RRR R ERIE ER ERR ERE KR RRR RE RARER EERE RR ERRERERKEKE | 


begin 
with info.soft_hdr do 
begin 
bkwdlink := abspage; 
abspage := abspage + 1; 
relpage := relpage + 1; 
if last then 
begin 
fwdlink := info.last_fwd_link; 
dataused := info.last_data_used 
end 
else 
fwdlink := abspage + 1 
end 


end; { NEXT_HDR } 


function OKXFERNEXT(* drivecb ptr: hdiskcb_ ptr): integer *); 


{ 
{ 
{ 
{ zero return which should terminate the transfer. 


var 
error: integer; 


begin 
with drivecb ptr*, cur_info_ ptr“ do 
begin 
error := 0; 
sect_left = sect_left - 1; 


if io_mode = chained_hdrs then 
begin { reading using chained headers } 
with soft_hdr do 
if (version <> soft_hdr.version) or 
(£ileid <> soft_header.fileid) or 
(relpage <> soft_header.relpage) then 
begin { verify error } 
error := vfyerr; 
end 
else 
begin { verifies ok } 
if (fwdlink = -1) then 
if sect_left > 1 then 
begin { premature end of chain } 


error := premenderr; 
xfer_count := xfer_count + dataused 
end 


end 
end; { chained headers } 
if error = 0 then 
begin 
if read_flag then 
case raw_header ptr“.datastat of 


datamaybe: if worstwarning = 0 then 
worstwarning : 
databad: if worstwarning <> cserr then 


worstwarning : 


end; { case raw_header } 


if (sect_left > 0) then 
begin { setup for next sector } 

blkno := blkno + 1; 

xfer_count := xfer_count + 512; 

x_leng 3 xfer_count; 

case io _ mode of 

with_header: 
NEXT_HDR(cur_info_ptr*, sect_left = 1); 
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raw_io: 
rvaw_header ptr := pointer (ord(raw_header ptr) + 24); 
chained _hdrs: 
soft_header.relpage := soft_header.relpage + 1 
end { case io mode } 
end 
end; 


okxfernext := error; 


end { with drivecb ptr, cur_info ptr } 
end; {OKXFERNEXT} 


procedure IODONE (* drivecb ptr: hdiskcb ptr; prev_err: integer *) ; 
[ARH RR KHER RRR ERIE RE RR ERE KER ERE KER ARRERERERKRERRERERKEEKE 


{* 


{* Description: Continue I/O request after call to driver. *} 


{* 


{* Input Parameters: drive_cb ptr points to control block %}. 
{* 


{* Output Parameters: none 


{* 


{* Side Effects: 
{* 


{* Special Conditions of use: appropriate interrupts must *} 
{* be off 
{* 


{* Error Conditions: 


{* 


[RARER KERR KERRIER ERK ERE REE ERR ERE RE RARER ERER KR KEERERERKEKE | 


LABEL 
1; 


VAR 

parm: params; 

success flag: boolean; 

err: integer; 

disk_log_rec: record 
code: intl; 
rd_flag: boolean; 
slot: intl; 
chan: intl; 
er: integer; 
estat: longint; 
dev: integer; 


end; 
begin 
with drivecb ptr*, cur_info_ ptr“ do 
begin 


if req_hd_ ptr*.operatn > 1 
then FINISH REQ(drivecb ptr, prev_err = 0, prev_err) { non I/O operation } 
else { I/O operation } 
1; case prev_err of 
0: begin { successful operation } 
if sect_left = 0 then 
begin { all sectors have been transferred } 
FINISH_REQ(drivecb ptr, true, 0); 


end 
else 
begin { sectors still to be transferred } 
success flag := true; 
if read_flag then 
begin 
if io_mode = chained _hdrs then 
begin 


with soft_hdr do 
if (version <> soft_header.version) or 
(fileid <> soft_header.fileid) or 
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(relpage <> soft_header.relpage) then 


begin { verify error } 
prev_err := vfyerr; 
success flag := false 
end 
else { verifies ok } 
if (fwdlink = -1) then 
if sect_left > 1 then 


begin { premature end of chain } 


prev_err := premenderr; 
success flag := false; 
xfer_count := xfer_count + dataused 


end; 
end; { chained headers } 


if success flag then 
case raw_header ptr*.datastat of 
datamaybe: if worstwarning = 0 then 


worstwarning : 


databad: if worstwarning <> cserr then 


worstwarning : 


end; 
end; { read_mode } 


{ next complete previous request if it's done. } 
{ and start up next disk I/O, if any } 


if (sect_left > 1) and success_flag then 
begin { update current request } 
sect_left = sect_left - 1; 
blkno := blkno + 1; 
xfer_count := xfer_count + 512; 
x_leng := xfer_count; 
case io _mode of 
with_header: 
NEXT_HDR(cur_info_ptr*, sect_left = 1); 
raw_io: 


raw_header ptr := pointer(ord(raw_header_ ptr) + 24); 


chained hdrs: 


-625; 


-625; 


soft_header.relpage := soft_header.relpage + 1; 


end; 
START _DISK(drivecb ptr) ; 
end 
else 
FINISH _REQ(drivecb ptr, success flag, prev_err); 


end; { sectors still to be transferred } 
end; 


wait_int: { nothing to do but wait for next interrupt } 
begin 
end; 


otherwise 
begin { got error } 


restrt_count := restrt_limit; { hard error - prevent retries } 


if LOGGING then 
with disk_log rec do 


begin 
code := -3; 
rd_flag := read_flag; 
with config addr* do 
begin 
slot := slot_no; 
chan := iochannel; 
dev := device_no; 
end; 
er := prev_err; 
estat := 0; 
LOG(err, ord(@disk_log rec)) { write error to log file } 
end; 
restrt_count := restrt_count + aL 
if restrt_count <= restrt_limit then 
begin 


total_restarts = total_restarts +1; 
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1: 425. START _DISK(drivecb_ ptr) ; { do it again from the top } 
1: 426. end 
1: 427. else { exhausted the retries available } 
1: 428. if prev_error = cserr then 
1: 429. begin 
1: 430. prev_error := O; 
1: 431. worstwarning := cserr; 
1: 432. goto 1 
1: 433. end 
1: 434. else 
1: 435. FINISH_REQ(drivecb ptr, false, prev_err); { quit if too } 
1: 436. 
{ many errors } 
1: 437. 
1: 438. end; 
1: 439. end; { case } 
1: 440. end; 
1: 441. end; { IODONE } 
1: 442. 
1: 443. 
1: 444. procedure START _DISK(* drivecb ptr, hdiskcb_ ptr *) ; 
1: 445. [RARE RRR RRR IRERKER ERE KR KER ER ERK EERE RR ERRERERKEKE | 
1: 446. {* 
*} 
1: 447. {* Description: Start a read or write of one sector ona *} 
1: 448. {* hard disk. *} 
1: 449. {* 
*} 
1: 450. {* Input Parameters: drivecb_ ptr points to control block *} 
1: 451. {* 
*} 
1: 452. {* Output Parameters: none *} 
1: 453. {* 
*} 
1: 454. {* Side Effects: *} 
1: 455. {* 
*} 
1: 456. {* Special Conditions of use: appropriate interrupts must *} 
1: 457. {* be off *} 
1: 458. {* 
*} 
1: 459. {* Error Conditions: *} 
1: 460. {* 
*} 
1: 461. [BARRIER KERRIER ERIK KER ERE ERR REE KERR ERE EKER RKEERRERERKEEKE 
1: 462. VAR 
1: 463. parm: params; 
1: 464. errnum: integer; 
1: 465. 
1: 466. begin 
1: 467. with drivecb ptr*, cur_info ptr“ do 
1: 468. begin 
1: 469. with parm do 
1: 470. begin 
1: 471. £nctn_code := hdskio; 
1: 472. if req_hd_ ptr*.operatn <= 1 then 
1: 473. begin { I/O operation } 
1: 474. if read_flag 
1: 475. then c_cmd := readcmd 
1: 476. else c_cmd := writecmd; 
1: 477. c_sector := blkno; 
1: 478. end; 
1: 479. CALLDRIVER(errnum, config addr, @parm); { call driver to start I/O } 
1: 480. end; { with } 
1: 481. end; 
1: 482. end; { start_disk } 
1: 483. 
1: 484. 
1: 485. procedure START_NEW_REQUEST(* drivecb ptr, hdiskcb_ ptr *) ; 
1: 486. [RRR RRR KERIKERI IRE RR ERE KEKE EERE RARER ERERK REE RERERKEKE | 
1: 487. {* 
*} 
1: 488. {* Description: Initialize control block and make first I/O *} 
1: 489. {* call for the request at the head of the drive's queue *} 
1: 490. {* 
*} 
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{* Input Parameters: drivecb_ ptr points to this drive's variables *} 
{* 


{* Output Parameters: none *} 
{* 

{* Side Effects: Unit globals: num_sectors left, *} 

{* cur_info ptr, req_hd ptr *y 

{* Request changed from active to in_service *) 

{* 

{* Special Conditions of use: required ints must be off. *} 

{* 

{* Error Conditions: *} 


{* 


[BARRIER RRR KER IRIRERR ERK EKER RR ER ERR ER EER ERKEKEERERERKEEKE | 


VAR 


er: integer; 


begin 


with drivecb ptr* do 
begin 


{ set up global vars for this request } 


req_hd ptr“.reqstatus.reqsrv_f := in_service; { from active to in_service } 
cur_info_ ptr = pointer (req hd ptr“.req extent) ; 
if req_hd_ ptr*.operatn > 1 then 
begin { non I/O operation } 
START_DISK(drivecb ptr) ; 
end 
else 
begin { I/O operation } 
with cur_info ptr* do 
begin 


{ next try to lock the data buffer in memory } 


FREEZE SEG(er, buff_rdb ptr, buff_offset, ord(req_hd ptr), 
resolved_addr) ; 
if er = 0 then { lock worked } 
begin 
sect_left := num_chunks; 
restrt_count := 0; 
worstwarning := 0; 
vaw_header ptr := @soft_hdr; 
rvaw_data_ptr = resolved_addr; 
x_leng = xfer_count; 
case io_mode of 
raw_io: 
begin 
vaw_header ptr : 
if num_chunks = 
raw_data_ptr : 
else 
vaw_data_ptr : 


pointer (resolved_addr) ; 
then 
resolved_addr + 24 { speed optimization } 


teu 


resolved_addr + ord4 (24) *num_chunks 
end; 


chained _hdrs: soft_header := soft_hdr; { remember which header to match } 
end; { case } 


START_DISK(drivecb ptr) ; 
end 
end { with cur_info ptr } 
end; 
end { with drivecb ptr } 


end; { start_new_request } 


function HDISKIO(* parameters: param ptr): integer *) ; 
[RAR HRI RRR REE RE RRR EER ERE KR REE E KERR RRR ERE REE ER EERERKEKE 


{* 
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{* Description: HDISKIO is the generic device driver for all*} 


{* 
{* 
{* 
{* 


hard disks with the Apple format. Device *} 
specific activities will be passed on to the*} 
appropriate device driver. 


{* Input Parameters: Each function code request has its own *} 


{* 
{* 


input parameters. 


{* Output Parameters: none 


{* 


{* Side Effects: The request is added to the queue for the *} 
appropriate drive. If no request is busy, the request *} 
is started up immediately. 


{* 
{* 
{* 


{* Special Conditions of use: none 


{* 


{* Error Conditions: 


{* 


[BARRIER KEKE KERRIER ERK ER ERE ERR ERER ERK REE ERERKREKRRERERKEEKE | 


VAR 
parm: 


params ; 


p_extdevrec: “ext_diskconfig; 

drivecb ptr: hdiskcb_ptr; 

ext_ptr: extdptr_type; 

ints: intson_type; 

left_sort_ptr, right_sort_ptr, head_sort_ptr: reqptr_type; 
new_sec, left_sec, right_sec: longint; 

errnum: integer; 


{$S init} 


procedure HINITIT; 
[BAHAR HRI ER RIK KERR IRE RRR KERR ERE R ERE ERE RE RERERKEEKERER | 


{* Internal subroutine in initialize segment for profile init *} 
[BR RHH HHH RIKER RHR KERRIER EKER KER ERE EKER RE RER EERE RE RERERKEEKEERER | 


TYPE 


initrec = record 


VAR 
chan: 


integer; 


index: integer; 
end; 


initrec_ptr: “initrec; 
newdrivecb, newregqblk: absptr; 


begin 


errnum := 0; 


chan 


:= parameters’ .configptr%.iochannel ; 


if chan >= 0 then INTSOFF(slotints, ints) 


drivecb ptr := 
if drivecb_ptr = nil then 
{ not initialized yet } 


begin 


errnum 


else INTSOFF(winints, ints) ; 
pointer (parameters*.configptr*.cb_ addr) ; 


:= errbase + 3; { insufficeint sysglobal space } 


if GETSPACE (sizeof (hdisk_cb), b_sysglobal_ptr, newdrivecb) then 
if GETSPACE (sizeof (reqblk) , b_sysglobal_ptr, newreqblk) then 


begin 


errnum := 0; 

parameters’ .configptr®.cb addr := newdrivecb; 
drivecb ptr := pointer (newdrivecb) ; 

with drivecb ptr“ do 


begin 
config addr := parameters*.configptr; 
ext_ptr := ord(nil); 
v_flag := false; { default is don't re-read all writes } 
total_restarts := 0; 
cur_num_requests := 0; 
restrt_limit := 4; { max times an I/O is retried } 


if chan >= 0 then int_prio := slotints 


- Page 97 of 141 - 


Alpha Draft -- 11 January 1984 


my 
=) 
ia 
xh 
*) 
ah 


6 2? Device Drivers Manual 


ee ee ey 


631. 
632. 
633. 
634. 
635. 
636. 
637. 
638. 
639. 
640. 
641. 
642. 
643. 
644. 
645. 
646. 
647. 
648. 
649. 
650. 
651. 
652. 
653. 
654. 
655. 
656. 
657. 
658. 
659. 
660. 
661. 
662. 
663. 
664. 
665. 
666. 
667. 
668. 
669. 
670. 
671. 
672. 
673. 
674. 
675. 
676. 
677. 
678. 
679. 
680. 
681. 
682. 
683. 
684. 
685. 
686. 
687. 
688. 
689. 
690. 
691. 
692. 
693. 
694. 
695. 
696. 
697. 
698. 
699. 
700. 
701. 
702. 
703. 
704. 
705. 
706. 


end; 


else int_prio := winints; 
dummy req ptr := pointer (newregblk) ; 
req_hd ptr = dummy _req ptr; 
with dummy req ptr* do 
begin 
dev_chain.fwd_link := newregblk - b sysglobal_ptr + 
sizeof (rb_headT) ; 
dev_chain.bkwd_link = dev_chain. fwd_link; 
reqspec_info := -1; { initialize dummy cylinder # } 
reqstatus.reqsrv_f := active; 
reqstatus.reqabt f := false; 
block_p f := false 
end; 
end; 


{ initialize device specific driver } 
with parameters’ do 
begin { reuse parameter block } 
fnctn_code := hdinit; 
CALLDRIVER(errnum, configptr, parameters) ; 
end; { with } 
end; 
end; 
INTSON (ints) ; 


{$IFC debug1} 
if TRACE(DD,1) then 
if errnum <> 0 then 


begin 
with parameters*.configptr* do 
begin 
writeln('Error ', errnum, ' initializing hard disk: '); 
writeln('Slot=', slot_no, ' chan=', iochannel, ' dev=', device_no) ; 
end; 
end; 
{$ENDC} 


HDISKIO := errnum; 
{ hinitit } 


[RRR HHH RRR HERR IER IR KRR ERE RRR ERR ERE RARER KER ERE ERE ERE REREREREERERK | 


{$S krgenio} 


begin {hdiskio } 


drivecb ptr := pointer (parameters’.configptr*.cb_ addr) ; 
case parameters*.fnctn_code of 
dskio: begin 


HDISKIO := 0; { no errors } 
with parameters’ .req* do 


begin 
ext_ptr := pointer (req _extent) ; 
new_sec := ext_ptr*.blkno; 
reqspec_info := new_sec; 

end; 


{$IFC debug1} 
if TRACE(DD, 10) then 
if ext_ptr“.read_ flag then 


writeln('Reading Profile block# = ', new_sec) 
else 
writeln('Writing Profile block# = ', new_sec) ; 


{ $ENDC} 


{* Add the new request to the device queue, sorted by sector 

Every queue contains a 'dummy' request whose sector number is either 
smaller than any valid sector (-1) or larger than any valid sector 
($7FFFFFFF). The sector numbers of the requests along the device queue 
monotonically increase or decrease until the dummy is reached. The sector 
numbers then reverse directions and monotonically decrease or increase 
until they reach the same sector number as the request at the head of 

the queue. This ordering of the queue allows the interrupt handler to 
pull the next request from the top of the queue, maintaining optimal seek 


+ + + FFF HF 
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* ordering. The drive will pick up all requests which are in the same 
* direction of head travel, before it services requests in the other direction. 
* The dummy request is at the head of the queue only when the queue is empty. *} 


with drivecb ptr* do 
begin 
INTSOFF(int_prio, ints) ; 
left_sort_ptr = req_hd ptr; 
head_sort_ptr := left_sort_ptr; { remember where we started } 
if cur_num_requests = 0 then { point head to new req } 
req hd ptr := parameters’.req 
else 
begin 
left_sec := left_sort_ptr“.reqspec_info; 
if left_sec = new_sec then { past dummy if same as current sector } 
left_sort_ptr = dummy req ptr; 
right_sort_ptr = CHAIN_FORWARD (left_sort_ptr*.dev_chain) ; 
right_sec := right_sort_ptr*.reqspec_info; 


{ look for insertion point } 


while (right_sort_ptr <> head_sort_ ptr) and 

((zight_sec = new_sec) or ((new_sec > right_sec) and (new_sec > left_sec) ) 
or ((new_sec < right_sec) and (new_sec < left_sec))) do 

begin { chain forward one link if not at insertion point } 
left_sort_ptr = right_sort_ptr; 
left_sec = right_sec; 
right_sort_ptr := CHAIN FORWARD (left_sort_ptr*.dev_chain) ; 
right_sec := right_sort_ptr*.reqspec_info; 

end 

end; 


{ insert it } 


cur_num requests := cur_num_ requests + 1; 
ENQUEUE (parameters’.req*.dev_chain, left_sort_pointer”.dev_chain, 
b_sysglobal ptr) ; 
if cur_num_requests = 1 then 
begin 
if int_prio = winints then { built-in parallel port } 
DISKSYNC (true); { prevent contrast changes during I/O } 
START_NEW_REQUEST (drivecb ptr) 
end; 
INTSON (ints) 
end { with } 
end; { dskio } 


dinit: HINITIT; { call internal subroutine in initialize segment } 


ddown: { down a device } 
begin 
if parameters’ .configptr*.slot_no >= 0 then INTSOFF(slotints, ints) 
else INTSOFF(winints, ints) ; 

if drivecb ptr*.cur_num_ requests <> 0 

then hdiskio:= errbase { + ???? } 

else 

begin { no requests outstanding - shut the device down } 
with parameters’ do 
begin { reuse parameter block } 

f£nctn_code := hddown; 
CALLDRIVER(errnum, configptr, parameters) ; 

end; 
RELSPACE (ord (drivecb ptr*.req_ hd ptr), b_sysglobal_ ptr) ; 
RELSPACE (ord (drivecb ptr), b_sysglobal_ptr) ; 
parameters*.configptr*.cb addr := ord(nil); 
hdiskio := 0; 

end; 

INTSON (ints) 

end; { ddown } 


reqrestart: begin 
HDISKIO := 0; 


{$IFC debug2} 


if TRACE(DD, 5) then 
writeln(' Profile restarting request.') ; 
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{ no other requests present } 


1: 783. { SENDC} 
1: 784. 
1: 785. INTSOFF (drivecb_ptr*.int prio, ints) ; 
1: 786. START_NEW_REQUEST (drivecb ptr) ; 
1: 787. INTSON (ints) ; 
1: 788. end; {reqrestart} 
1: 789. 
1: 790. otherwise 
1: 791. HDISKIO := errbase +6; 
1: 792. 
1: 793. end; { case } 
1: 794. end; {HDISKIO} 
1: 795. 
1: 796. 
1: 797. end. 
1: 798. 
1: 799. 
End of File: HDISK.TEXT 


Directory of files in Cross Reference: 


1: HDISK.TEXT 


level = 1. 


abspage 1: 
absptr 1: 
active 1: 
adj_io.cl: 
asynctr 1: 
b_sysglo 1: 
bkwd_lin 1: 
bkwdlink 1: 
blkno 1: 
block_p_ 1: 
buff_off 1: 
buff_rdb 1: 
cocmd 1: 
c_sector 1: 
calldriv 1: 
cb_addr 1: 
chain _fo 1: 
chained 1: 
chan 1: 
code a 


213, 

605. 

640. 
162. 


171, 
638=. 
213=. 

274=, 
642=. 
527. 
161, 

A75=, 
A77=. 
479, 

612, 
172, 
140, 

321*, 

318*, 


config a1: 410, 
configpt 1: 

1: 660, 
cserr 1: 
cur_info 1: 131, 
cur_num_ 1: 173=, 

1: 760. 
databad 1: 268, 
datamayb 1: 266, 
datastat 1: 265, 


dataused 1: 141, 
dd 1: 155, 
ddown 1: 756. 
dequeue 1: 171. 
dev 1: 324%, 
dev_chai 1: 171, 
1: 742, 
device _n 1: 414, 
dinit 1: 754. 
disk ext 1: 190. 


disk_log 1: 317*, 
disksync 1: 186, 
drivecb_ 1: 
1: 328, 
1: 509, 
1: 676=, 
driverde 1: 
dskio 1: 680. 
dummy _re 1: 176, 
enqueue 1: 742. 


1: 214=, 1: 214, 1: 222. 
32. 
1: 616, 1: 617, 1: 636, 1: 743, 1: 769, 1 
1: 274, 1: 379=, 1: 379, 1: 477, 1: 685. 
1: 162, 1: 527. 
1: 476=. 
1: 650, 1: 767. 
1: 620=, 1: 676, 1: 771= 
1: 180, 1: 723, 1: 734. 
1: 242, 1: 282, 1: 344, 1: 387, 1: 547. 
1: 413=, 1: 603*, 1: 609=, 1: 610, 1: 630. 
1: 408=. 
1: 479, 1: 624=. 
39%, 1: 41*, 1: 100, 1: 609, 1: 612, 1: 620, 
1: 676, 1: 758, 1: 767, 1: 771. 
67*, 1: 268, 1: 368, 1: 428, 1: 431. 
1: 237, 1: 279, 1: 328, 1: 384, 1: 467, 1 
1: 173, 1: 174, 1: 628, 1: 716, 1: 741=, 1 
1: 368. 
1: 366. 
1: 365. 
1: 219=, 1: 257, 1: 360. 
1: 657, 1: 690, 1: 781. 
1: 414=. 
1: 172, 1: 180, 1: 636, 1: 638, 1: 638, 1: 
1: 742. 
1: 663. 
1: 406, 1: 418. 
1: 747. 
44*, 1: 46%, 1: 78*, 1: 80%, 1: 106*, 1: 131, 
1: 331, 1: 337, 1: 390, 1: 393, 1: 425, 
1: 518, 1: 550, 1: 584%, 1: 612=, 1: 613, 
1: 711, 1: 748, 1: 760, 1: 769, 1: 770, 
22 
1: 178, 1: 178, 1: 180, 1: 632=, 1: 633, 1: 
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770. 


515=, 
741, 


634, 
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1 


PRPPR 


{ illegal function code or not implemented yet } 


: 624, 


1: 522. 
1: 744, 


182, 
435, 
621=, 
785, 


1: 722. 


Le 


PRPRPR 


650, 


237, 
467, 
622, 
786. 
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er 1: 322*, 1: 416=, 1: 506*, 1: 527, 1: 529. 

err 1: 316*, 1: 418. 

errbase 1: 63*, 1: 615, 1: 761, 1: 791. 

errnum 1: 76*, 1: 127%, 1: 464*, 1: 479, 1: 589*, 1: 608=, 1: 615=, 1: 619=, 
1: 650, 1: 658, 1: 662, 1: 668, 1: 767. 

error Ls 41*, 1: 107*, 1: 152, 1: 165, 1: 234*, 1: 239=, 1: 249=, 1: 256=, 


1: 262, 1: 288. 
estat 1: 323*, 1: 417=. 
ext_addr 1: 100. 


ext_disk 1: 97, 1: 583. 

ext_ptr 1: 97*, 1: 100=, 1: 101, 1: 585%, 1: 625=, 1: 684=, 1: 685, 1: 691. 
extdptr_ 1: 585. 

external 1: 74, 1: 76, 1: 82. 

fileid 1: 246, 1: 246, 1: 348, 1: 348. 

fnctn_co 1: 471=, 1: 649=, 1: 678, 1: 766=. 

forward 1: 78, 1: 80. 


Ereeze_s 1: 527. 
fwd_link 1: 636=, 1: 638. 
fwdlink 1: 218=, 1: 222=, 1: 253, 1: 355. 


genio 1: 34. 

getspace 1: 616, 1: 617. 

globalda 1: 26. 

hard_err 1: 146=, 1: 152=, 1: 156, 1: 165=. 
hd err 1: 68%. 


hddown 1: 766. 
hdinit 1: 649. 


hdisk 1: diss 

hdisk_cb 1: 616. 

hdiskcb_ 1: 44, 1: 46, 1: 78, 1: 80, 1: 106, 1: 584. 
hdskio 1: 471. 

head_sor 1: 587*, 1: 715=, 1: 728. 
hentry_p 1: 101=. 

hwint 1: 24. 

ignorerr 1: 66*. 

implemen 1 53 

in_servi 1: 514. 

index : 599%. 


1 
info 1: 190*, 1: 211, 1: 218, 1: 219. 
initrec 1: 598*, 1: 604. 

initrec_ 1: 604*. 

intl 1: 318, 1: 320, 1: 321. 


int2 Ls 41. 

int_prio 1: 185, 1: 630=, 1: 631=, 1: 713, 1: 746, 1: 785. 

interfac 1: 18. 

ints 1: 586*, 1: 610, 1: 611, 1: 654, 1: 713, 1: 750, 1: 758, 1: 759, 
1: 774, 1: 785, 1: 787. 

intsoff 1: 610, 1: 611, 1: 713, 1: 758, 1: 759, 1: 785. 

intson 1: 654, 1: 750, 1: 774, 1: 787. 

intson_t 1: 586. 

io_mode 1: 140, 1: 242, 1: 277, 1: 344, 1: 382, 1: 537. 

iochanne 1: 413, 1: 609, 1: 663. 

label 1: 310. 

last 1: 190*, 1: 216. 

last_dat 1: 219. 

last_fwd 1: 218. 

left_sec 1: 588*, 1: 720=, 1: 721, 1: 729, 1: 730, 1: 733=. 

left_sor 1: 587*, 1: 714=, L715, 1: 720, 1: 722=, 1: 723, 1: 732=, 1: 734, 
1: 742. 

mmprimit 1: 30. 

new_sec 1: 588*, 1: 685=, 1: 686, 1: 692, 1: 694, 1: 721, 1: 729, 1: 729, 
1: 729, 1: 730, 1: 730. 

newdrive 1: 605*, 1: 616, 1: 620, 1: 621. 

newregbl 1: 605*, 1: 617, 1: 632, 1: 636. 

num_chun 1: 531, 1: 541, 1: 544 

operatn 1: 136, 1: 330, 1: 472, 1: 516. 

ord4 1: 544. 

p_extdev 1: 583*. 

param_pt 1: 42, 1: 50. 

paramete 1: 42*, 1: 50*, 1: 609, 1: 612, 1: 620, 1: 624, 1: 647, 1: 650, 
1: 660, 1: 676, 1: 678, 1: 682, 1: 717, 1: 742, 1: 758, 1: 764, 


1: 767, 1: 771. 
params 1: 314, 1: 463, 1: 582. 


parm 1: 314*, 1: 463*, 1: 469, 1: 479, 1: 582*. 

pointer 1: 100, 1: 281, 1: 386, 1: 515, 1: 540, 1: 612, 1: 621, 1: 632, 
1: 676, 1: 684. 

premende 1: 64*, 1: 256, 1: 358. 
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prev_err 1: 44*, 1: 331, 1: 331, 1: 333, 1: 351=, 1: 358=, 1: 393, 1: 416, 
1: 428, 1: 430=, 1: 435. 

proc pri 1: 28. 

ptr_arr 1: 76%. 

ptrdevre 1: 39, 1: 41. 

raw_data 1: 535=, 1: 542=, 1: 544=. 

raw_head 1: 265, 1: 281=, 1: 281, 1: 365, 1: 386=, 1: 386, 1: 534=, 1: 540=. 

raw_io 1: 280, 1: 385, 1: 538. 

rb_headt 1: 637. 

rd_flag 1: 319*, 1: 409=. 

read fla 1: 264, 1: 342, 1: 409, 1: 474, 1: 691. 

readcemd 1: 70*, 1: 475. 

relpage 1: 215=, 1: 215, 1: 247, 1: 247, 1: 283=, 1: 283, 1: 349, 1: 349, 
1: 388=, 1: 388. 

relspace 1: 769, 1: 770. 

req 1: 682, 1: 717, 1: 742. 

req_exte 1: 515, 1: 684. 

req_hd_p 1: 135, 1: 167, 1: 171, 1: 172=, 1: 172, 1: 176, 1: 180=, 1: 330, 
1: 472, 1: 514, Le 515; 1: 516, 1: 527, 1: 633=, 1: 714, 1: 717=, 
1: 769. 

reqabt f 1: 641=. 

reqblk 1: 617. 

regptr_t 1: 587. 

reqresta 1: 777. 

reqspec_ 1: 178=, 1: 178, 1: 639=, 1: 686=, 1: 720, 1: 724, 1: 735. 

reqsrv_f 1: 514=, 1: 640=. 

reqstatu 1: 514, 1: 640, 1: 641. 

resolved 1: 528, 1: 535, 1: 540, 1: 542, 1: 544. 

restrt_c 1: 404=, 1: 421=, 1: 421, 1: 422, 1: 532=. 

restrt_1 1: 404, 1: 422, 1: 629=. 

right_se 1: 588*, 1: 724=, 1: 729, 1: 729, 1: 730, 1: 733, 1: 735=. 

right_so 1: 587*, 1: 723=, 1: 724, 1: 728, 1: 732, 1: 734=, 1: 735. 

sect_lef 1: 240=, 1: 240, 1: 254, 1: 272, 1: 279, 1: 335, 1: 356, 1: 376, 
1: 378=, 1: 378, 1: 384, 1: 531=. 

sizeof 1: 616, 1: 617, 1: 637. 

slot 1: 320*, 1: 412=. 

slot_no 1: 412, 1: 663, 1: 758. 

slotints 1: 610, 1: 630, 1: 758. 

soft hdr 1: 141, 1: 211, 1: 244, 1: 245, 1: 346, 1: 534, 1: 547. 

soft_hea 1: 246, 1: 247, 1: 283, 1: 283, 1: 347, 1: 348, 1: 349, 1: 388, 
1: 388, 1: 547=. 

succ £ 1: 128*, 1: 133=, 1: 138, 1: 147=, 1: 167. 

success 1: 106*, 1: 133, 1: 315*, 1: 341=, 1: 352=, 1: 359=, 1: 364, 1: 376, 
1: 393. 

syserrba 1: 62*. 


total_re 1: 424=, 1: 424, 1: 627=. 

trace 1: 155, 1: 657, 1: 690, 1: 781. 
unblk_re 1: 167. 

unfreeze 1: 161. 

unit 1: 1. 

v_flag 1: 626=. 

version 1: 245, 1: 245, 1: 347, 1: 347. 


vfyerr 1: 65*, 1: 249, 1: 351. 

wait_int 1: 69*, 1: 398. 

winints 1: 185, 1: 611, 1: 631, 1: 746, 1: 759. 

with_hea 1: 278, 1: 383. 

worstwar 1: 144, 1: 146, 1: 266, 1: 267=, 1: 268, 1: 269=, 1: 366, 1: 367=, 
1: 368, 1: 369=, 1: 431=, 1: 533=. 

writecmd 1: 71*, #1: 476. 

x_leng 1: 276=, 1: 381=, 1: 536=. 

xfer cou 1: 141=, 1: 141, 1: 143=, 1: 143, 1: 257=, 1: 257, 1: 275=, 1: 275, 
1: 276, 1: 360=, 1: 360, 1: 380=, 1: 380, 1: 381, 1: 536. 

Procedures 

call _hdi 1: 41*, 1: 82%. 

finish_r 1: 106*, 1: 331, 1: 337, 1: 393, 1: 435. 

hinitit 1: 593*, 1: 754. 

iodone 1: 44*, 1: 293%. 

log 1: 76*, %1: 418. 

next_hdr 1: 190*, 1: 279, 1: 384. 

start_di 1: 78*, 1: 390, 1: 425, 1: 444%, 1: 518, 1: 550. 

start_ne 1: 80*, 1: 182, 1: 485*, 1: 748, 1: 786. 

use_hdis 1: 39*, 1: 84*. 


Functions 
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hdiskio 1: 50*, 1: 101, 1: 558*, 1: 668=, 1: 681=, 1: 761=, 1: 772=, 1: 778=, 
1: 791=. 

logging 1: 74*, 1: 405. 

okxferne 1: 46*, 1: 227%, 1: 288=. 

Declaration Character : '*' 


Assignment Character : '=' 
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Cross Reference Listing: 


Beginning of file: PROFILE.TEXT 


ee ee ey 


OAHU BPWNHe 


oO 


UNIT PROFDRVR; 


INTERFACE 


USES 
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{ By Wendell Henry 1/17/83 } 
{ A device specific driver for the Profile. It uses the generic hard } 
{ disk driver HDISK } 


{ By Wendell Henry 8/23/83 } 
{ The driver has been extended to support the Widget device } 


{$U object/driverdefs .obj} 
driverdefs, 

{$U object/hwint.obj} 
hwint, 

{$U object/sysglobal .obj} 
globaldata, 

{$U object/procprims.obj} 
proc_prims, 

{$U object/mmprim. obj} 
mmprimitives, 

{$U object/synctr.obj} 
asynctr, 

{$U object/genio.obj} 
genio, 

{$U object/hdisk.obj} 
hdisk; 


function PROFILE (parameters: param ptr): integer; 


IMPLEMENTATION 


CONST 


TYPE 


errbase = 
countlimit 


wait_int = 
ignorerr = 


hd_err = 654; 
cserr = -663; 


{ Drive types } 
T_Profile = 0; 
T_Seagate = 1; 


T_Widget = 


2; 


650; 
= 100; { 100 = 5 secs before timeout on 2-port } 
{ = 12 secs on parallel } 
1; { "wait for next interrupt" error code } 
661; { error code when get timer error requiring no action } 


{ Driver commands } 
Readcemd = 0; 


Writecmd = 


Formatcmd = 


1; 
2; 


{ Extension to Drive_cb for Profile } 


(* NOTE: definitions marked with {**} have corresponding definitions in PROFASM *) 


ext_drive_cb = record { driver info for Profile hard disk } 
{**} hwbase: longint; { base address of 6522 } 
{**} hwstatus: longint; { addr of 6522 status register B } 
{**} remap interleave: boolean; { true if interleave remapped } 
{**} command_buffer: record { command buffer for profile } 
{**} case integer of 
{**} 0: (cmd: 0..2); { set value after storing "sector" } 
{**} 1: (sector: longint; retry cnt: intl; sparing thresh:intl) ; 
{**} end; 
{**} checksum: integer; { temp storage during write } 
{**} expect_hs: intl; { internal storage for profasm } 
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1: 72. {**} drivetype: intl; { type of disk drive } 

Lis 73. {**} asm_state: integer; { state internal to assemb lang } 
1: 74. {**} errstat: longint; { error returned from profile } 
1: 75. {**} asmerr: integer; { err returned from assmbly routine } 
1 76. {**} last_hard_error: longint; { last error from errstat } 

1: 77. {**} counter: integer; { used for timeout } 

1: 78. {**} discsize: longint; { device size from controller } 
Lis 79. {**} cxfercnt: intl; { current transfer count } 

1; 80. {**} csum_valid: intl; { true if precomputed checksum valid } 
rT: 81. {**} nested _bdr: intl; { true if bad response being handled } 
1 82. {**} extstat: array[0..15] of intl; { 16 bytes for extended status } 
1: 83. {**} cmd_buf: array[0..7] of intl; { 8 bytes for sending widget cmds } 
‘Ae 84. end; 

Lis 85. 

Ae 86. ptr_ext_drive_cb = “ext_drive_cb; 

1: 87. 

Lis 88. function GP_STATUS (via_addr: longint; var counter:integer): integer; external; 

1; 89. 

Ane 90. procedure PROFASM(control_ block: hdiskcb ) ptr); external ; 

1; 91. 

1.3 92. function PROF_INIT(ext_cb: ptr_ext_drive_cb; via_addr: longint; 

die 93. hwst_irb: longint; hwst_ddrb: longint): integer; external; 

1s 94. 

A? 95. procedure START_NONIO (var errnum: integer; drivecb ) ptr: hdiskcb ) ptr); 

a Be 96. [RHR ER KERRIER EKER ERR ERE RARE ERE REREEERE | 

Lis 97. {* Issue non-I/O request to low level driver *} 

1: 98. [RRR ER KKK RE RE KER ERR RER ARERR EREREEERE | 

1: 99. var 

1: 100. extdrivecb ) ptr: ptr_ext_drive_ cb; 

1: 101. regptr: reqptr_type; 

1: 102. bufaddr: longint; 

1: 103. 

1: 104. begin 

1: 105. extdrivecb ptr = pointer (drivecb ptr*.ext_ptr) : 

1: 106. with drivecb ptr*, extdrivecb ptr*, req hd ptr* do 

1: 107. begin 

1: 108. reqstatus.reqsrv_f := in_service; 

1: 109. cur_info_ ptr := pointer (req extent) ; 

1: 110. { process format request } 

LsTiL, command buffer.sector := ord(req hd ptr)+sizeof(reqblk); { data address } 

1: 112. command buffer .cmd := operatn; 

1: 113. asm_state := O; 

Lis 124. PROFASM (drivecb ptr) ; 

1: 115. errnum := asmerr; 

1: 116. if errnum <> 0 then 

1: 117. if errnum = wait_int then 

1: 118. counter := countlimit; 

Le-1l9. end; { with } 

1: 120. end; { START_NONIO } 

1: 121. 

1: 122. 

1: 123. procedure NONIO_REQ(var errnum: integer; cmd: integer; devconfig: ptrdevrec) ; 

mee 124. [RRR RHRR ERE ERKREKKEREREREREREE 

e125: {* Build a request for Format *} 

1: 126. [RAHA R ERE RERKE KEKE RERERERKEEKE | 

13. 127: var 

1: 128. drivecb ptr: hdiskcb_ptr; 

1: 129. regaddr: absptr; 

1: 130. reqptr: reqptr_type; 

1: 131. ints: intson_type; 

1: 132. leftlink: reqptr_type; 

1: 133. space: integer; 

1: 134. 

1: 135. begin 

1: 136. drivecb ptr := pointer (devconfig*.cb_ addr) ; 

23° 132. errnum := errbase + 3; { insufficient sysglobal space } 

1: 138. space := sizeof (reqblk) ; 

1: 139. if cmd = formatcmd then 

1: 140. space := space + 512; { extra space for spare table map } 

Le 14l1, if GETSPACE (space, b_sysglobal_ptr, reqaddr) then 

Ty 142° begin 

1: 143. errnum := 0; 

1: 144. regqptr := pointer (reqaddr) ; 

1: 145. with reqptr*, drivecb ptr“ do 

1: 146. begin 

T2147, cfigptr := devconfig; 
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* 


a a ee oe ey 


148. 
149. 
150. 
151. 
152. 
153. 
154. 
155. 
156. 
157. 
158. 
159. 
160. 
161. 
162. 
163. 
164. 
165. 
166. 
167. 
168. 
169. 
170. 
171. 
172. 
173. 
174. 
175. 
176. 
177. 
178. 
179. 
180. 
181. 
182. 
183. 
184. 
185. 
186. 
187. 


188. 
189. 


190. 
191. 
192. 
193. 
194. 
195. 


196. 
197. 


198. 
199. 
200. 
201. 


202. 
203. 


204. 
205. 


206. 
207. 
208. 
209. 
210. 
211. 
212. 
213. 
214. 
215. 
216. 


operatn := cmd; 


req_extent := ord(nil) ; 


with list_chain do 
begin 


fwd_link := ord(@fwd_link) - b_sysglobal_ptr; 
bkwd_link = fwd_link; 


end; 
LINK_TO_PCB (reqptr) ; 


{ add to device queue } 


INTSOFF(int_prio, ints) ; 


reqspec_info := req hd ptr“.reqspec_ info; 

leftlink := pointer(req_ hd ptr*.dev_chain.bkwd_link - 
sizeof (rb_headT) + b_sysglobal_ptr) ; 

if req_hd_ ptr = dummy req ptr then 

regptr; { place at head } 

cur_num_requests := cur_num_requests + 1; 


req _hd ptr := 


ENQUEUE (dev_chain, leftlink*.dev_chain, b_ sysglobal_ptr) ; 


if cur_num_requests = 1 then 
START_NONIO(errnum, drivecb_ ptr) ; 


INTSON (ints) ; 


if errnum = wait_int then 


BLK_REQ(reqptr, reqptr) ; 


{ process will block until the operation is done } 


if regqptr*.reqstatus.reqsuccess_ f 


begin 
then errnum : 
else errnum : 
end; 


CANCEL_REQ(reqptr) ; 
end; { with } 
end; 
end; {NONIO_ REQ} 


0 
hd_err ; 
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{ this will also release data space } 


function PROFILE (*parameteres: param_ptr): integer *) ; 
[RARER ERR KERRIER ERR KERR KEKE ERE EERE ERE RERERERKEKE 


{* 

{* Description: PROFILE device-dependent user I/O request *) 
{* 

{* Input Parameters: Rqst is the partially initialized *) 
{* request block. Blno is the s-file block number. 

{* Rast*.reqspec_info[2] will hold the cylinder number. *} 
{* Rqst*.reqspec_info[1] points to disk-extend record *} 
{* which holds info necessary to do I/O to the disk. *} 
{* 


{* Output Parameters: none 


{* 


{* Side Effects: The request is added to the queue for the *} 
{* appropriate drive. If no request is busy, the request *} 


{* is started up immediately. 
{* 


{* Special Conditions of Use: none 


{* 


{* Error Conditions: 


{* 


[BAHAR HHH KERR KERR IRE R RR KREER KEKE ERE EERE RRR REE ERERKEKE | 


label 20; 


var 
hwddrb: longint; 

p_extdevrec: “ext_diskconfig; 
port_ptr: hdiskcb_ptr; 
newextdrivecb: absptr; 
p_extdrivecb: ptr_ext_drive_cb; 
p_de_ rec: “de _rec; 
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PPP PPP PRP EPP RP RP RPP BP BRB PEP BBP BPP PPB PPP PPP PPP PPP EP PPP RP PEP RPP PP RP EP PEP PP PPP PP PPP PEP PPP PP RP eee 


217. 
218. 
219. 
220. 
221. 
222. 
223. 
224. 
225. 
226. 
227. 
228. 
229. 
230. 
231. 
232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
241. 
242. 
243. 
244. 
245. 
246. 
247. 
248. 
249. 
250. 
251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 
268. 
269. 
270. 
271. 
272. 
273. 
274. 
275. 
276. 
277. 
278. 
279. 
280. 
281. 
282. 
283. 
284. 
285. 
286. 
287. 
288. 
289. 
290. 
291. 
292. 


ints: intson_type; 


error: 


int2; 


parm: params; 


response: 


integer; 


i: integer; 


operation: integer; 


begin { PROFILE DRIVER } 


with parameters’ do 


begin 


port_ptr 


:= pointer (configptr*.cb addr) ; 


{ Preliminaries are done - now process function request } 
case fnctn_code of 


dinit: 


hdinit: 


{ first level of device initialization } 


begin 


USE_HDISK(configptr) ; 


CALL_HDISK(error, configptr, parameters) ; 


profile 
end; 


:= error; 
{ dinit } 


{ now initialize device } 


begin 
profile 


:= errbase + 3; 
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{ Use HDISK for handling sector headers } 


{ insufficient sysglobal space } 


if GETSPACE (sizeof (ext_drive_cb), b_sysglobal_ptr, newextdrivecb) then 


begin 


p_extdrivecb 


:= pointer (newextdrivecb) ; 


with p_extdrivecb*, configptr* do 
begin 


port_ptr*.ext_ptr := newextdrivecb; 
p_extdevrec := pointer (ext_addr) ; 
if iochannel >= 0 then 


begin { attached to multi-port card } 

hwbase := iospacemmu * $20000 + ord4($4000)*slot_no + 
$2001 + $800 * iochannel; 

hwstatus := hwbase; 
hwddrb := hwstatus + $10; 

end 

else 

begin { attached to built-in port } 
hwbase := iospacemmu*$20000 + $0D801; 
hwstatus := hwbase + $400; 
hwddrb := hwstatus + 4; 

end; 

nested_bdr := 0; 

for i := 0 to 15 do extstat[i] := 0; 

discsize := 0; 


{ assume the device is a profile } 
with p_extdevrec* do num_bloks := 9720; 
last_hard_err := 0; 

command buffer.retry cnt := 10; 

command buffer.sparing thresh := 3; 
remap_interleave := true; 

if iochannel < 0 then DISKSYNC (true) ; 


response := ) 
if iochannel < 0 then DISKSYNC (false) ; 
profile := response; 


if (response <> 0) or (discsize <= 0) or 
then drivetype := T_Profile { set 
else 
begin 
with p_extdevrec* do num bloks 
if drivetype <> 0 then 


-PROF_INIT(p_extdrivecb, hwbase, hwstatus, hwddrb) ; 


(discsize > 30000) 
dirvetype to profile } 


= discsize-strt_blok; 


begin { widget } 
remap_interleave := false; 
drivetype := T Widget; 
[RRR RKRERERHEEREER TEMPORARY 
remap_interleave := true; 
drivetype := 1; 
KKKKKKKK KKK KEK KKK TEMPORARY } 

end 

else 

begin { Profile or Seagate } 


if discsize > 9728 then drivetype 
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293. 
294. 
295. 
296. 
297. 
298. 
299. 
300. 
301. 
302. 
303. 
304. 
305. 
306. 
307. 
308. 
309. 
310. 
311. 
312. 
313. 
314. 
315. 
316. 
317. 
318. 
319. 
320. 
321. 
322. 
323. 
324. 
325. 
326. 
327. 
328. 
329. 
330. 
331. 
332. 
333. 
334. 
335. 
336. 
337. 
338. 
339. 
340. 
341. 
342. 
343. 
344. 
345. 
346. 
347. 
348. 
349. 
350. 
351. 
352. 
353. 
354. 
355. 
356. 
357. 
358. 
359. 
360. 
361. 
362. 
363. 
364. 
365. 
366. 
367. 
368. 


end; 
end; 
end; { with } 
end; 
end; {hdinit} 


hdskio: 
begin 
operation := port_ptr*.req hd ptr*.operatn; 
if operation = formatcmd then 
begin 


{ start I/O to disk } 


START _NONIO(error, port_ptr) ; 
profile := error; 
end 
else 
begin 
p_extdrivecb := pointer(port ptr*.ext_ptr) ; 
with p_extdrivecb* do 
begin 
command _buffer.sector := c_sector; 


command buffer.cmd := c_cmd; { set after sector is stored! 
{ initialize state machine } 


asm_state := 0; 
PROFASM(port ptr); { call state machine } 
profile := asmerr; { return driver status } 
if asmerr <> 0 then 

if asmerr = wait_int 


then counter := countlimit { timeout limit } 
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} 


else IODONE(port_ptr, asmerr); { unexpected error } 


end; 
end; 
end; {hdskio} 


dinterrupt: 
begin 
with port _ptr* do 
begin 


{ Interrupt from device } 


p_extdrivecb := pointer (ext_ptr) ; 
with p_extdrivecb* do 
begin 


asmerr := GP_STATUS(hwbase, counter); { get profile status } 


profile := asmerr; { return status } 
if (cur_num_requests <> 0) then 
begin 


if asmerr > 0 then goto 20; { handle error } 


PROFASM (port_ptr) ; 
profile := asmerr; { return status } 
if asmerr = wait_int 


then counter := countlimit { timeout limit } 


else 
begin { unexpected error } 
20: if asmerr <> ignorerr then 
begin 
if errstat <> 0 then 


if (asmerr = hd_err) or (asmerr 
then last_hard_error : 


IODONE (port_ptr, asmerr) ; 
end; 
end; 
end; 
end; { with p extdrivecb } 
end; { with port_ptr } 
end; {dinterrupt} 


dskunclamp: 
begin 
profile := 685; 
end; {dskunclamp} 


{ Unclamp request } 


{ not an ejectable media } 


dcontrol: { Device control } 
begin 
begin 

p_de_rec := pointer (parptr) ; 

p_extdrivecb := pointer(port ptr*, ext_ptr) ; 
with port_ptr*, p_de rec*, p_extdrivecb* do 
begin 

if dversion <> 2 
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369. then profile := errbase + 7 { wrong application version } 

370. else 

371. begin 

372. profile := 0; 

373. INTSOFF(int_prio, ints) ; 

374. case dcode of 

375. 15: begin { return } 

376. { o last error from profile controller } 
377. { o state-machine restart count } 
378. arl10[0] := last_hard_error; 

379. arl0[1] := total_restarts; 

380. end; 

381. 20: begin { get disk status } 

382. ar10[0] 4; { good disk } 

383. ar10[1] 0; 

384. ar10[2] 999; { don't know how many blocks } 

385. { are available 


PRPRPRPRPEPPRPBPHP PPP RPP RR 


386. ar10[3] 
387. ar10[4] Ly { sparing always enabled } 
388. ar10[5] ord (command _buffer.sparing_thresh 
389. <= 10); 

390. ar10[6] ord (v_flag) ; 

391. end; 

392. 21: begin { enable/disable sparing } 

393. if ar10[1] = 0 then { don't rewrite sort errs } 
394. command buffer.sparing thresh := 11 

395. else { rewrite if > 30% err rate } 

396. command buffer.sparing thresh := 3; 

397. v_flag := (ar10[2] <> 0); { verify all writes } 
398. end; 

399. otherwise profile := errbase + 7; 

400. end; { case } 

401. INTSON (ints) ; 

402. end; 

403. end; { with port ptr, p_dce rec, p_extdrivecb } 

404. end; 

405. end; {dcontrol} 

406. 

407. dskformat: { format disk } 

408. begin 

409. p_extdrivecb := pointer(port ptr“, ext_ptr) ; 

410. if p_extdrivecb*.drivetype < T_Widget 

411. then error := 0 { disk already formatted } 

412. else NONIO_REQ(error, Formatcmd, configptr); { Widget can be formatted } 
413. profile := error 

414. end; {dskformat} 

415. 

416. otherwise { pass the function on to HDISK } 

417. begin 

418. CALL_HDISK(error, configptr, parameters) ; 

419. profile := error; 

420. end; 

421. 

422. end; { case } 

423. end; { with } 

424. end; { PROFILE DRIVER } 

425. end. 

426. 

427. 


0; 


PPP RPP BP PRP RPP RP BRB PP BRB BPP PRP BPP PPP PPP PPP PP PPP PRP RR 


End of File: PROFILE.TEXT 


Directory of files in Cross Reference: 
1: PROFILE.TEXT level = 1. 


absptr 1: 129, 1: 214. 


arl10 1: 378=, 1: 379=, 1: 382=, 1: 383=, 1: 384=, 1: 386=, 1: 387=, 1: 388=, 
1: 390=, 1: 393, 1: 397. 

asm_stat 1: 73*, 1: 113=, 1: 314=. 

asmerr 1: 75*, 1: 115, 1: 316, 1: 317, 1: 318, 1: 320, 1: 332=, 1: 333, 
1: 336, 1: 338, 1: 339, 1: 343, 1: 346, 1: 346, 1: 348. 

asynctr 1: 26. 

b_sysglo 1: 141, 1: 152, 1: 161, 1: 165, 1: 243. 
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bkwd_lin 1: 153=, 
blk_req 1: 172. 
bufaddr 1: 102*. 
c_cmd Te 313. 

ce sector 1: 312. 
call hdi 1: 236, 
cancel _r 1: 179. 
cb_addr 1: 136, 
cfigptr 1: 147=. 
checksum 1: 


cmd 1: 
emd_buf 1: 
command_ 1: 

1: 394, 


configpt 1: 228, 
control_ 1: 
counter 1: 
countlim 1: 
cserr Le 
csum_val 1: 


cur_info 1: 109=. 
cur_num_ 1: 164=, 
cxfercnt 1: 

ds0o1 1: 259. 
dc_rec 1: 216. 
dcode 1: 374. 
dcontrol 1: 361. 
dev_chai 1: 160, 
devconfi 1: 123*, 
dinit 1: 233. 
dinterru 1: 325. 
discsize 1: 
disksync 1: 272, 
drivecb_ 1: 
driverde 1: 
drivetyp 1: 
dskforma 1: 407. 
dskuncla 1: 356. 
dummy _re 1: 162. 
dversion 1: 368. 


enqueue 1: 165. 


errbase 1: 
errnum 1: 

1: 170, 
error 1: 218%, 

1: 418, 
errstat 1: 
expect_h 1: 
ext_addr 1: 249. 
ext_cb 1: 
ext_disk 1: 212. 
ext_driv 1: 


ext_ptr 1: 105, 
extdrive 1: 100*, 
external 1: 
extstat 1: 
fnetn_co 1: 231. 
formatcm 1: 
fwd_link 1: 152=, 
genio 1: 
getspace 1: 141, 
globalda 1: 
hd_err 1: 
hdinit 1: 240. 
hdisk 1: 
hdiskcb_ 1: 
hdskio 1: 299. 
hwbase 1: 

hwddrb 1: 211*, 
hwint alae 
hwst_ddr 1: 
hwst_irb 1: 
hwstatus 1: 

i : 221%, 
ignorerr 1: 
implemen 1: 


1: 160. 
1: 418. 
1: 228. 
70*. 
67*, 1: 112=, 
83%. 
65*, 1: 111, 
1: 396. 
1: 235, 1: 236, 
90*. 
77*, 1: 88%, 
39*, 1: 118, 
44*, 1: 346. 
80*. 
1: 164, 1: 166, 
79%. 
1: 165, 1: 165. 
1: 136, 1: 147. 
78*, 1: 265=, 
1: 274. 
95*, 1: 105, 
16. 
72*, 1: 277=, 
38*, 1: 137, 
95*, 1: 115=, 
1: 176=, 
1: 236, 1: 237, 
1: 419. 
74*, 1: 345, 
71. 
92*. 
61*, 1: 86, 
1: 248=, 1: 309, 
1: 105=, 
88, 1: 90, 
g2*, 1: 264. 
54*, 1: 139, 
1: 152, 1: 153. 
28. 
1: 243. 
20. 
43*, 1: 177, 
30. 
90, 1: 95, 
62*, 1: 252=, 
1: 255=, 1: 261=, 
18. 
93*. 
93%, 
63*, 1: 254=, 
1: 264=, 
42*, 1: 343. 
35. 


ray 


ay 


123*, 1: 
112, 1; 
: 246, 
118=, 
319, 1 
: 334. 
: 276, 1: 
106, 1: 
: 281, 1: 
: 242, 1: 
116, 1; 
177=. 
304, 
347. 
: 243. 
: 329, 
106. 
93. 
302, 15 
346. 
128, 1: 
: 254, Lis 
: 273. 
: 255, 1 
: 264=. 


ay 


139, 1: 148, 
269, 1: 270, 
1: 412, 1: 418. 
: 319=, 1: 332, 
: 340. 
276, 1: 280, 
114, 1: 128%, 
284=, 1: 292=, 
369, 1: 399. 
117, 1: 123%, 
1: 305, 1: 411=, 
1: 365, 1: 409. 
412. 
213. 
259=, 1: 260, 
260=, 1: 261, 


1: 313=. 


1: 312, 


1: 340=. 


1: 292. 
1: 136=, 


1: 410. 


1: 137=, 


1: 412, 


1: 273, 


1: 273. 
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1: 313, 


1: 145, 


1: 332. 


1: 388, 


1: 167. 


1: 167, 
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in_servi 1: 108. 
intl 1: 

1: 
int2 1: 218. 
int_prio 1: 158, 
interfac 1: 
ints 1: 131%, 
intsoff 1: 158, 
intson 1: 168, 
intson_t 1: 131, 
iochanne 1: 250, 
iodone 1: 320, 
iospacem 1: 252, 


label 1: 208. 
last_har 1: 
leftlink 1: 132%, 
link_to_ 1: 155. 
list_cha 1: 150. 
mmprimit 1: 
nested_b 1: 
newextdr 1: 214*, 
num_blok 1: 267=, 
operatio 1: 222*, 
operatn 1: 112, 
ord4 1: 252. 
p_de_rec 1: 216*, 


p_extdev 1: 212*, 
p_extdri 1: 215*, 

1: 365=, 
param_pt 1: 
paramete 1: 
params 1: 
parm 13 
parptr 1: 
pointer 1: 


219. 
219%. 
364. 
105, 
1: 309, 
port_ptr 1: 213*, 
1: 327, 
proc pri 1: 
profdrvr 1: 
ptr_ext_ 1: 
ptrdevre 1: 123. 
rb_headt 1: 161. 
readcemd 1: 
remap_in 1: 
req_exte 1: 109, 
req _hd p 1: 106, 
regqaddr 1: 129%, 


reqblk 1: 111, 
regptr 1: 101*, 
1: 175, 
regptr_t 1: 101, 
reqspec_ 1: 159=, 
reqsrv_f 1: 108=. 
reqstatu 1: 108, 
reqsucce 1: 175. 
response 1: 220*, 
retry_cn 1 


sector 1: 


sizeof 1: 111, 
slot_no 1: 252. 
space 1: 133*, 
sparing_ 1: 
strt_blo 1: 280. 
t_profil 1: 
t_seagat 1: 
t_widget 1: 
total_re 1: 379. 
unit 1: 
use_hdis 1: 235. 
v_flag 1: 390, 


via_addr 1: 
wait_int 1: 
writecmd 1: 


Procedures 


68, 1: 
83. 


1: 373. 
12. 

1: 158, 
1: 373. 
1: 401. 
1: 217. 
1: 253, 
1: 348. 
1: 259. 


76*, 1: 
1: 160=, 


24. 
glx, 1: 
1: 243, 
1: 280=. 
1: 301=, 

1: 148=, 


1: 364=, 
1: 249=, 
1: 245=, 
1: 366, 
33. 

33*, 1: 


1: 109, 
1: 329, 
1: 228=, 
1: 337, 
22. 
Ts 
sex, 1: 


52*. 
64*, 1: 
1: 149=. 
1: 111, 
1-141, 
1: 138. 
1: 130*, 
1: 179. 
1: 130, 
1: 159. 


1: 175. 


1: 273=, 
68*, 1: 
68*, 1: 
1: 138, 


1: 138=, 
68*, 1: 


47*, 1: 
48*, 1: 
49*, 1: 


ks 


1: 397=. 
88x, 1: 
41*, 1: 
53*. 


68, 


1: 168, 


1: 272, 


225, 


1: 


1: 


1: 


PRPPR 


1: 


71, 1 72, 1 79, 
217%, 1: 373, 1: 401. 
274. 
347=, 1: 378. 
165. 
248. 
302. 
366. 
267, 1: 280. 
246, Lin. 273; 1: 309=, 
409=, 1: 410. 
236, 1: 418. 
144, 1: 160, 1: 228, 
364, 1: 365, 1: 409. 
: 248, 1: 301, 1: 304, 
348, 1: 365, 1: 366, 
100, 1: 215. 
: 283=. 
160, 1: 162, 1: 163=, 
145, 1: 155, 1: 163, 
: 275, 1: 276. 
312=. 
: 243. 
140, 1: 141. 
388, 1: 394=, 1: 396=. 
410. 
170, 1: 318, 1: 339. 
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1: 310, 


1: 309, 
1: 409. 
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80, 1 
1: 329=, 

1: 245, 1: 249, 
1: 315, 

1: 301. 

1: 172, 1: 172, 


1: 330, 


1: 320, 
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nonio_re 1: 123*, 1: 412. 


profasm 1: 90*, 1: 114, Ti: 315, 1: 337. 

start_no 1: 95*, 1: 167, 1: 304. 

Functions 

gp_statu 1: 88*, 1: 332. 

prof_ini 1: 92*, 1: 273. 

profile 1: 33*, 1: 185*, 1: 237=, 1: 242=, 1: 275=, 1: 305=, 1: 316=, 1: 333=, 
1: 338=, 1: 358=, 1: 369=, 1: 372=, 1: 399=, 1: 413=, 1: 419=. 

Declaration Character : '*' 


Assignment Character : '=' 
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Cross Reference Listing: 


Beginning of file: RS232.TEXT 


1s 1. 

1: 2. UNIT RS232; { built-in RS232 driver } 

L's <i 

dks 4. { By Dave Offen } 

rT: Dy { Copyright 1983, Apple Computer Inc. } 

1 6. 

1: 7. INTERFACE 

1: 8. 

Lis 9. USES 

1: 10. {$U object/driverdefs.obj} 

1: 11. driverdefs, 

1; 12. {$U object/driversubs.obj} 

1: 13. driversubs ; 

Ti: 14. 

1; 15. function DRIVER( parameters: param ptr): integer; 

1.3 16. 

1: 17. IMPLEMENTATION 

1: 18. 

13 19. 

1: 20. {$IFC not debug2} 

L's 21. {$R-} { rangecheck off unless debug mode } 

A. 22. {SENDC} 

a: 23. 

Li 24 CONST 

De 25 errbase = 640; 

‘l.¢ 26 axmit = 0; 

i: 27 amodem = 1; 

Ake 28 arecv = 2; 

1: 29 aerr = 3 

1 30 

1: 31. TYPE 

1: 32 send _hs = (hw_hs, xmit_xon, xmit_delay); { transmit handshake type } 

Lis 33. recv_hs = (hwhs, rec_xon); { receive handshake type } 

1: 34 

di: 35. intliptr = “intl; 

1: 36 

1 37. intlrecptr = “intlrec; 

1: 38. intlrec = record 

di: 39. controlreg: intl; 

ate 40. end; 

1: 41. 

1s 42. portrec ptr = “portrec; 

13 43. portrec = record 

1: 44. cur_req ptr: regptr_type; 

1: 45. cur_info_ ptr: seqextptr_type; 

A? 46. cur_read_flag: boolean; 

1: 47. hwdata: intlptr; { actual I/O address } 

Li 48. hwcontrol: intlrecptr; { actual I/O address } 
1; 49. nulllink: linkage; { points to head of queue } 
‘¢ 50. openwr5: intl; 

aBS 51. openwrl4: intl; 

dbs 52. discon_detect: boolean; { detect disconnect on framing error } 
Le 53. restrt_out, restrt_in: boolean; 

Tis 54. prev_char: intl; 

12 55. autolf: boolean; 

Ti: 56. 

Lis Sa. { RS232 output variables } 

1? 58. 

1: 59. xmt_hs: send hs; { handshake for transmitting } 
1; 60. in_break: boolean; { when T, openwr5 has bit#4 set & alarm pending } 
1: 61. xmit_wait: boolean; { waiting for XON, modem signal or timeout } 
1: 62. xmit_ref: integer; { timer refnum } 

1; 63. 

dks 64. {xmt_hs = hw_hs or xmt_xon; (modem or xoff/xon handshake) } 
1: 65. xmit_timeout: longint; { hardware handshake timeout } 
5 66. 

1: 67. {xmt_hs = hw_hs; (no handshake, or modem handshake) } 
1: 68. xmtrr0: intl; { modem controls required } 

L's 69. xmtzrr0: intl; { modem required to = 0 } 

aT 70 

1: 71. {xmt_hs = xmit_delay. ( delay after CR, LF) } 
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1: 72. waitb4next: boolean; { cr or 1f was xmitted } 
1 73. crlfdelay: longint; { timer count } 
a 74. 
1: 75. { RS232 input variables } 
2 76. 
1: 77. rec_hs: recv_hs; { handshake for receiving } 
1: 78. no_ block: boolean; { blocking/non-blocking read mode } 
1: 79. last_stopped: boolean; { DTR off or XOFF last sent } 
1; 80. size_typeah: 0..1024; { size of type-ahead input buffer } 
1: 81. prity_char: intl; { char to replace parity errs, or 01 if disabled } 
5 82. num_typeah: integer; { number of chars currently in buffer } 
1 83. full_thresh: integer; { threshold for sending "buffer-full" } 
Ti: 84. empty _thresh: integer; { threshold for sending "buffer-empty" } 
1: 85. start_typeah, get_typeah, put_typeah: intlptr; { type-ahead ptrs } 
1: 86. end_typeah: intlptr; { equals start_typeaht+size typeah } 
1: 87. 
1: 88. {rec_hs = rec_xon. (send xoff/xon when threshold reached) } 
1: 89. hschar pending: (no_char, xoff_char, xon_char) ; 
Ts: 90. 
di: 91. end; 
1.3 92. 
1: 93. 
5 94. procedure FINISH_REQ(port: portrec_ptr; ok_flag: boolean); forward; 
13 95. 
di: 96. 
1: 97. procedure BYTEO(port: portrec ptr) ; 
1: 98. [RARE H KIRKE RE RIRIRKRR ERE RAR KERR ERR ERR ER ERE ER EEREREREEE | 
1: 99. {* 
*) 
1: 100. {* Description: Write one byte on RS232 *} 
1: 101. {* 
x} 
1: 102. {* Input Parameters: Port points to the current port in the *} 
1: 103. {* RS232 device control block. *} 
1: 104. {* 
*} 
1: 105. {* Output Parameters: none *} 
1: 106. {* 
*} 
1: 107. {* Side Effects: Starts timer if hardware handshake requires *} 
1: 108. {* 
*} 
1: 109. {* Special Conditions of Use: RS232 interrupts must be off *} 
1: 110. {* 
*} 
Tx 111, {* Error Conditions: *} 
Ty 112: {* 
*} 
1: 113. [ARH REHKKHRKERER IRR RR ARERR KERR ERR ER RE REE EER EERERERERE | 
1: 114. 
1: 115. VAR 
1: 116. data_ptr: intlptr; 
Ty TL7. status, err: integer; 
1: 118. real_addr: longint; 
1: 119. 
1: 120. begin 
Le 121. with port’. hwcontrol* do 
L2-122'; begin 
Ty 123. status := controlreg; { read hardware control reg 0 } 
1: 124. 
1: 125. if (hschar_pending <> no_char) then 
1: 126. begin { need to send xoff or xon } 
1: 127. if ALLSET($04, status) then { output buffer is empty } 
1: 128. begin { send xoff or xon now } 
Ty 129. if hschar_pending = xoff_char then 
1: 130. begin 
1: 131. 
1: 132. {$IFC debug2} 
1-133. if TRACE(DD, 1) then 
1: 134. write ('<xof>') ; 
1: 135. { SENDC} 
1: 136. 
1: 137. hwdata* := $13; { xoff char } 
1: 138. end 
1: 139. else 
1: 140. begin { send xon } 
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my 
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141. 
142. 
143. 
144. 
145. 
146. 
: 147. 
148. 
149. 
150. 
151. 
152. 
153. 
154. 
155. 
156. 
157. 
158. 
159. 
160. 
161. 
162. 
163. 
164. 
165. 
166. 
167. 
168. 
169. 
170. 
171. 
172. 
173. 
174. 
175. 
176. 
177. 
178. 
179. 
180. 
181. 
182. 
183. 
184. 
185. 
186. 
187. 
188. 
189. 
190. 
191. 
192. 
193. 
194. 
195. 
196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209. 
210. 
211. 
212. 


213. 
214. 


end 


end; 


end 
end 
else 
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{$IFC debug2} 
if TRACE(DD, 1) then 
write ('<xon>') ; 


{ #ENDC} 


hwdata* 
end; 


:= $11; { xon char } 


hschar_ pending := no_char 


if (xmt_hs <> hw_hs) or 
(ALLSET (xmtrr0, status) and ALLSET(xmtzrr0, -1-status)) then 
begin { ready for xmit } 
if ALLSET($04, status) then { xmit buffer is empty } 
with cur_info ptr* do 


end 


begin 
FREEZE SEG(err, buff_rdb ptr, buff offset, ord(cur_req ptr), 
real_addr) ; 

if err <> 0 then 

begin 
controlreg := $28; { clear output interrupts with $28 } 
restrt_out := true { reqrestart will be called to continue } 

end 

else 


begin { freeze seg succeeded } 


if autolf and 
((prev_char = $0d) or (prev_char = -115{=$8D})) { bug 161 } 


then 
prev_char := $0A { insert auto LF } 
else { no automatic line feed } 
begin 
data_ptr := pointer(real_addr + xfer count) ; 
xfer_count := xfer_count + 14 
prev_char := data_ptr%; 
end; 


{$IFC debug2} 
if TRACE(DD, 1) then 

write (CHR (prev_char) ) ; 
{ $ENDC} 


hwdata* := prev_char; { do the write } 
if xmt_hs = xmit_delay then 


if (prev_char $0d) or (prev_char = $0a) then 
waitb4next := true; { start delay after CR or LF interrupts } 


UNFREEZE SEG(buff_rdb ptr) { allow buffer to move again } 


end 


end 


else { not ready for xmit } 
begin { allow delay for hardware handshake } 


end 


{BYTEO} 


{$IFC debug2} 
if TRACE(DD, 5) then 
writeln(' RS-232 stop xmit for hw handshake. '); 


{ $ENDC} 


if xmit_timeout > 0 then 
ALARMRELATIVE (xmit_ref, xmit_timeout) ; 


xmit_wait 
controlreg 


:= true; 


:= $28 { clear output interrupts with $28 } 


procedureCOPYBYTES (port: portrec_ptr) ; 
[ARH HR RHR KERR ERIE IR ER ERR KEKE RARE RARER ERE RAE ERE RERERERKEEKE | 


*} 


mh 


{* 


{* Description: Copy bytes from typeahead buffer to user buffer *} 


{* 
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1: 215. {* Input Parameters: Port points to the current port in the 
1: 216. {* RS232 device control block. 
1: 217. {* 
=) 

1: 218. {* Output Parameters: none 
1: 219. {* 

*} 
220. {* Side Effects: 


1: 221. {* 
a: 

1: 222. {* Special Conditions of Use: RS232 interrupts must be off *} 
1: 223. {* 

*} 
224. {* Error Conditions: 
225. {* 

=} 
226. [BARRE KR R RRR ER ERIE IRE RE EKER KR ERR IRE RARER EER ERKRERKERERERERKEEKE | 
227. 
228. VAR 
229. i, errnum, cnt: integer; 
230. data_ptr: intlptr; 
231. real_addr: longint; 
232. 
233. begin 
234. with port’, cur_info ptr* do 
235. if num_typeah > 0 then 
236. begin 


BPR 


238. real_addr) , 

239. if errnum > 0 then 

240. restrt_in := true 

241. else 

242. begin 

243. data_ptr := pointer(real_addr + xfer count) ; 
244, ent := num_bytes - xfer_count; 

245. if cnt > num_typeah then 

246. cnt := num_typeah; 

247. 

248. { transfer typed-ahead characters to user buffer } 
249. 

250. i := ord(get_typeah) + cnt - ord(end_typeah) ; 


252. i := cnt 
253. else 

254. begin { transfer requires two moves } 

255. moveleft(get_typeah*, data_ptr*, cnt - i); 
256. data_ptr := pointer(ord(data_ptr) + cnt - i); 
257. get_typeah := start_typeah 

258. end 

259. moveleft (get_typeah*, data_ptr*, i); 

260. get_typeah := pointer (ord(get_typeah) + i); 
261. 

262. UNFREEZE_SEG (buff£_rdb ) ptr) ; 
263. num_typeah := num_typeah - cnt; 

264. if last_stopped then 

265. if num_typeah <= empty thresh then { allow input } 
266. begin 

267. last_stopped := false; 

268. if rec_hs = hwhs then 

269. begin { toggle modem signals } 

270. 

271. {$IFC debug2} 

272. if TRACE(DD, 5) then 

273. writeln(' RS-232 DTR turned on.'); 
274. { SENDC} 

275. 

276. with hwcontrol* do 
277. begin 

278. controlreg : 
279. i := 128; 
280. controlreg := openwr5 
281. end 
282. end 
283. else 
284. begin 


5; 


PPP RPP RP RPBPEP PRP RPP BPR BPP PPP PPP PPP PPP PPP PPP PPP PRP PPP PP EP PPP PPP Re Pee) 


{ send xon } 
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237. FREEZE SEG(errnum, buff _rdb ptr, buff_offset, ord(cur_req ptr), 


{ allow buffer to move } 
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=) 
*) 


| 


*) 


{ wraparound chars } 
251. if i < 0 then { transfer all chars in single move of length "cnt" } 


{ NOP to assure delay between accesses } 
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1: 285. hschar - pending = xon_char; 
1: 286. BYTEO (port) ; 
1: 287. end 
1: 288. end; 
1: 289. xfer_count := xfer count + cnt 
1: 290. end; 
1: 291. if (xfer_count = num bytes) or no_block then { read complete } 
1: 292. FINISH _REQ(port, true) 
1: 293. end 
1: 294. end; { copybytes } 
1: 295. 
1: 296. 
1: 297. procedure START_NEW_REQUEST(port: portrec_ptr) ; 
1: 298. [RRR RHR KERR RRR KERR ERR KEE ERE RARER KER ERE REE KE RERERKERKEKREE | 
1: 299. {* 
= 
1: 300. {* Description: Start a new read or write from the queue. *} 
1: 301. {* 
*} 
1: 302. {* Input Parameters: Port points to the current port in the *} 
1: 303. {* RS232 device control block. *} 
1: 304. {* 
a 
1: 305. {* Output Parameters: none *} 
1: 306. {* 
*} 
1: 307. {* Side Effects: Modem control signals are affected. *} 
1: 308. {* 
Le 
1: 309. {* Special Conditions of Use: RS232 interrupts must be off *} 
1: 310. {* 
*} 
1: 311. {* Error Conditions: *} 
1: 312. {* 
ad 
1: 313. [BARRIER KERRIER IRR RR ERK R KEKE EERE RARER EER ERER ERE EREREREREKREE | 
1: 314. 
1: 315. begin 
1: 316. with port* do 
1: 317. begin 
1: 318. cur_req ptr := CHAIN FORWARD (nullink) ; 
1: 319. cur_req ptr*.reqstatus.reqsrv_f := in_service; 
1: 320. cur_info_ptr := pointer(cur_req ptr*.req extent) ; 
1: 321. with cur_info ptr* do 
1: 322. begin 
1: 323. cur_read_flag := read_flag; 
1: 324. if discon_detect and (hwcontrol*.controlreg < 0) then 
1: 325. begin { assume disconnected cable on input framing error } 
1: 326. xmit_wait := false; { fixes bug } 
1: 327. cur_req ptr*.hard error := errbase + 8; 
1: 328. FINISH_REQ(port, false) 
1: 329. end 
1: 330. else { start up i/o for new request } 
13.331. if cur_read_flag then 
1: 332. COPYBYTES (port) 
13: 333. else { write } 
1: 334. begin 
1: 335. waitb4next := false; 
1: 336. if (xmt_hs = xmt_xon) and xmit_wait then { last received xoff } 
1: 337. begin 
1: 338. if xmit_timeout > 0 then 
1: 339. ALARMRELATIVE (xmit_ref, xmit_timeout) 
1: 340. end 
1: 341. else 
1: 342. BYTEO (port) 
L343 end 
1: 344. end 
1: 345. end 
1: 346. end; {START_NEW_REQUEST} 
1: 347. 
1: 348. procedure FINISH_REQ(*port: portrec_ptr; ok_flag: boolean*) ; 
1: 349. [BARRE KHER EKER IRR RRR EKER RRR RE RE RARER EER ERA RE RKERERERERKEEKE | 
1: 350. {* 
*} 
1: 351. {* Description: Complete the current request. *} 
1: 352. {* 
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*} 
1: 353. {* Input Parameters: Port points to the current port in the *} 
1: 354. {* RS232 device control block. Ok_flag is param to *)} 
1: 355. {* unlock request. *} 
1: 356. {* Output Parameters: none *} 
1: 357. {* 
*} 
1: 358. {* Side Effects: Modem control signals are affected. *} 
1: 359. {* 
st 
1: 360. {* Special Conditions of Use: Cur_req_ ptr must be valid *} 
1: 361. {* 
*} 
1: 362. {* Error Conditions: *} 
1: 363. {* 
“J 
1: 364. [RARER HERR RR ERIK KR RR ERE R KEKE RIKER ARERR ERERKEERKERERERERKEKREE | 
1: 365. 
1: 366. VAR 
1: 367. err: integer; 
1: 368. ptrsysg: “longint; 
1: 369. 
1: 370. begin 
1:.-371. ptrsysg := pointer(bsysglob); { set up pointer to b sysglobal ptr } 
1: 372. with port’, cur_info ptr“ do 
1: 373. begin 
1: 374. ADJ_IO_ CNT(false, buff_rdb ptr); { allow swapout } 
1: 375. UNBLK_REQ(cur_req ptr, ok_flag) ; 
1: 376. DEQUEUE (cur_req ptr*.dev_chain, ptrsysg%) ; 
1: 377. if xmit_wait then 
1: 378. ALARMOFF (xmit_ref) ; 
1: 379. if cur_read_ flag then 
1: 380. restrt_in := false { prevent reqrestart after completion. fixes bug } 
1: 381. else { write } 
1: 382. if hschar_pending = no_char then 
1: 383. restrt_out := false; { fixes bug } 
1: 384. 
1: 385. {$IFC debug2} 
1: 386. if TRACE(DD, 10) then 
1: 387. writeln('RS-232 Completed. Success = ', ok_flag) ; 
1: 388. {SENDC} 
1: 389. 
1: 390. if (nullink.fwd_link + ptrsysg*) <> ord(@nullink) then 
1: 391. START_NEW_REQUEST (port) 
1: 392. else 
1: 393. cur_req ptr := nil 
1: 394. end { with } 
1: 395. end; { finish_req } 
1: 396. 
1: 397. 
1: 398. procedure XMIT_TO HNDL(port: portrec_ptr) ; 
1: 399. [BARRIER RH RRR RE RIRKRKKER EKER KEKE RARE RARER KER ERK REERERERKERKEKE | 
1: 400. {* 
=} 
1: 401. {* Description: Timeout handler when waited too long for *} 
1: 402. {* resuming output to RS-232 channel A or B, or delaying *} 
1: 403. {* after transmitting CR or LF. *} 
1: 404. {* 
*} 
1: 405. {* Input Parameters: pointer to data for Port A or B *} 
1: 406. {* 
*} 
1: 407. {* Output Parameters: none *} 
1: 408. {* 
=) 
1: 409. {* Side Effects: Completes the request with an error *y 
1: 410. {* 
*} 
1: 411. {* Special Conditions of Use: Called with all ints off *} 
1: 412. {* 
x) 
1: 413. {* 
*} 
1: 414. {* Error Conditions: *} 
1: 415. {* 
mh 
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VAR 


ptrsysg: “longint; 


begin 


with port’, cur_info ptr* do 


if in_break then 


begin { remove from break state } 
in_break := false; 
openwr5 := openwr5 - $10; { disable break } 
with hwcontrol* do 
begin 


controlreg := 5; 
if (rec_hs = hwhs) and last_stopped then 


controlreg := openwr5 - (-128) { no DTR } 
else 
controlreg := openwr5 


end { with } 
ptrsysg := pointer (bsysglob) ; 
if (nullink.fwd_link + ptrsysg*) <> ord(@nullink) then 
START_NEW_REQUEST (port) 
end 
else 
if xmit_wait then 
if cur_req ptr <> nil then 
begin 
if xmit_hs <> xmt_xon then 
xmit_wait := false; 
if xmt_hs = xmit_delay then 
if xfer_count < num bytes then 
BYTEO (port) { send next byte out } 
else {complete previous request } 
FINISH_REQ(port, true) 


else 
begin { handshake has been delayed too long } 
cur_req ptr*.hard_ error := errbase + 7; 
FINISH_REQ(port, false) 
end 
end 


end; { xmit_to_hndl } 


function DRIVER(* parameters: param_ptr): integer *) ; 
[BARRIER KHER ERE RRR KERR EERE ERE RARER RE REE E ERK ERERERERKEKREE | 


{* 
=) 
{* 
{* 
*} 
{* 
{* 
| 
{* 
{* 
xy 
{* 
{* 
*) 
{* 
{* 
*} 
{* 
{* 
a 


Description: RS-232 external interface via DRIVERCALL *} 


Input Parameters: Parameters depend on function code 


Output Parameters: none 


Side Effects: none 


Special Conditions of Use: none 


Error Conditions: 


[BARR KKK RE RIRKRRRR EKER KR ERR RER ERE ER ERR ERK ERERERKERKEKE | 


VAR 


prevints: intson_type; 
port_ptr: portrec_ptr; 


i: 


integer; 


char_in: intl; 
ptrsysg: “longint; 


procedure WR_SCC (regno: intl; cal: intl); 
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{ start next pending request } 
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{ time up after CR or LF } 


ot 


mh 


vi) 


9 


*) 
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[RHR ER REE RIKER KEKE REE ERREKEEKEEREEREREREREEREREREREE | 


{* Internal procedure to write to the SCC control registers *} 


{* Assures necessary delay between accesses. *} 
[RRR ER KERRIER ERIK RE RARER KEKE ERE R EERE RE RER EERE REREREE | 


i: integer; 


{$R-} { rangecheck off } 


with port_ptr*.hwcontrol do 


begin 
controlreg := regno; 
i := 128; { NOP to assure delay between accesses } 
controlreg := val 

end 


{$IFC debug2} 
{$R+} { rangecheck back on if debug } 
{$ENDC} 


end; {WR_SCC} 


procedure INITIT; 


VAR 


begin 


[RRR ER RHR RIKER IRR RE RRR ARE REE REE REE KE RERER EERE RERERKE | 


{* Internal procedure to handle initialize "case" and reduce *} 


{* code size of main DRIVER procedure *} 
[RRR H RHR IKK KR IK RIKER IR ERK ERE EAR RRR KERR REE KER EKER EERE RERERKE | 


ptrsysg: “longint; 

err, i, chan: integer; 

temp: longint; 

portacontrol, portbcontrol: intlrecptr; 
Pp: params; 

derec: dc_rec; 


INTSOFF(rsints, prevints) ; 


err := 0; 
portacontrol := pointer (iospacemmu*$20000 + $00203) ; 
portbcontrol := pointer(ord(portacontrol) - 2); 
ptrsysg := pointer (bsysglob) ; { set up pointer to b sysglobal ptr } 
chan := parameters*.configptr’.iochannel ; 
if not GETSPACE (sizeof (portrec), ptrsysg*, temp) then 
err := errbase + 6 
else 
begin 


parameters*.configptr*.cb addr := temp; 
port_ptr := pointer (temp) 
end; 


{ initialize either port A or B } 


if err = 0 then 
with port’ do 
begin 
cur_req ptr := nil; 


if chan = 0 then 
begin { chan A initializations } 
xmtrr0O := $10; { bit position for DSR signal } 


xmtzrr0O := 0; 
openwrl14:= 3; { port A uses baud rate generator } 
openwr5 := -22; 
hwcontrol := portacontrol; 
i := hwcontrol*.controlreg; { make sure initially writes to reg 0 } 
WR_SCC(9, -118) { = $8a, reset chan A } 
end 
else 
begin { chan B initializations } 


xmtrrO := 0; 
xmtzrr0O := $20; { bit position for DSR signal } 
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openwrl14:= 1; 
openwr5 := -24; 
hwcontrol := portbcontrol; 
i := hwcontrol*.controlreg; { make sure initially writes to reg 0 } 
WR_SCC(9, $4a) { reset chan B } 
end; 
WR_SCC(4, $44); { set operating mode } 


if chan = 0 then 
WR_SCC(11, $50) { Port A uses baud rate generator } 


else 
begin 
WR_SCC(11, -48); { = $DO for oscillator source on Port B } 
for i := 1 to 1000 do ; { kill time while oscillator starts } 
end; 


{ set baud rate } 


p.configptr := parameters*.configptr; 
p_fnctn_code := dcontrol; 
dcrec.dversion := 2; 

dcrec.dcode := 5; 


dcrec.ar10[0] := 1200; { set to 1200 baud } 
p.parptr := ord(@dcrec) ; 
i := DRIVER(@p); { call internal device control routine } 
WR_SCC(10, 0); 
WR_SCC(3, -63); { set receiver state to $41 or $Cl1 } 
WR_SCC(5, openwr5) ; { set to standard modem signals } 
if chan = 0 then 

WR_SCC(15, $10) { enable ints in SYNC A modem change } 
else 

WR_SCC(15, $20); { or enable ints on CTS B modem change } 
WR_SCC($11, $13); { enable desired interrupts: $13 or $17 } 


hwdata := pointer(ord(hwcontrol) + 4); 


in_break := false; 
restrt_in := false; 
restrt_out := false; 


prev_char := 0; 

autolf := false; 

nullink.fwd_link := ord(@nullink) - ptrsysg*; 
nullink .bkwd_link = nullink.fwd_link; 
discon_detect := false; 

xmit_wait := false; 

xmt_hs = hw_hs; 


{ receiver initializations } 


no_block := true; 
rec_hs := hwhs; 
prity_char := 1; 
last_stopped := false; 

xmit_timeout := 20000; { 20 seconds } 

ALARM ASSIGN(xmit_ref, parameters*.configptr, rsints) ; 
if xmit_ref = 0 then 


begin 
err := 602; { timer table full } 
RELSPACE (ord(port_ptr), ptrsysg%) 

end 

else 

begin { initialize type-ahead buffer } 
size_typeah := 0; { temporary value } 
p.configptr := parameters*.configptr; 
p.£nctn_code := dcontrol; 
dcrec.dversion := 2; 
dcrec.dcode := 9; 


dcrec.ar10[0] 


64; { size of type-shead buffer } 
dcrec.ar10[1] 16; { low threshold } 
dcrec.ar10[2] 32; { high threshold } 

p.parptr := ord(@dcrec) ; 
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end; 


{ NOTE: There is code missing in the listing here. } 


{ 
{ 
end 
end { with } 
{INITIT} 


procedure CONTROLIT; 
[RRR ERKRIKRI RE RIE KRRERE RIE EKER EKER EERE RE REREEREREREREE | 


VAR 


begin 


The missing parts are from here to the VAR } 
of the next procedure. 


{* Internal procedure to handle control "case" and reduce *} 


{* code size of main DRIVER procedure 
[RRR ER KERRIER IEEE RE RIERA EERE EKER ERER EERE REREREE | 


speed, i: integer; 
ptrsysg: “longint; 
temp: longint; 


dc_rec_ ptr: “dce_rec; 


with parameters’ do 


begin 
DRIVER := 0; 


if configptr*.iochannel = 0 then 
temp := 125000 


else 


temp := 115200; 


{ constant for baud rate computation } 


{ for baud rates } 


dc_rec_ ptr := pointer (parptr) ; 

INTSOFF(rsints, prevints) ; 

with port _ptr*, dce_rec ptr* do 
if dversion <> 2 then 


DRIVER 
else 


case dcode of 
{ set parity and leave break state } 
if configptr*.iochannel = 0 then 


1: begin 


openwr5 := -86 { = $AA, for port A } 
else 

openwr5 := -88; { = $A8, port B always has RTS off } 
in_break := false; { removing break state } 


:= errbase + 0 { wrong application version } 


case ar10[0] of 


0: begin { no parity, 8 data, 1 stop } 
WR_SCC(4, $44); 
WR_SCC(2, -63); { = $Ccl } 
openwr5 := openwr5 + $40; 
prity_char := 1 


end; 


1, 2: begin { odd parity, 7 data, 1 stop } 


WR_SCC(4, $45); 

WR_SCC(3, $41); 

prity_char := 0 
end; 


3, 4: begin { even parity, 7 data, 1 stop } 


end; 


WR_SCC(4, $47); 

WR_SCC(3, $41); 

prity_char := -128 { = $80 } 
end; 


{ case ar10[0] } 


if (rec_hs = hwhs) and last_stopped then 


else 


WR_SCC(5, openwr5 - (-128)) { no DTR } 


WR_SCC(5, openwr5) ; 


if odd(ar10[0]) then 


begin 


end 
else 
begin 


WR_SCC($11, $13); { ignore parity on input } 


prity_char := 1 { disable input parity err replacement } 


WR_SCC($11, $17); { enable input parity checking } 
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1: 713. hwcontrol*.controlreg := $30 { ignore prior parity errors } 
1: 714. end 

1: 715. end; 

1: 716. 

1: 717. 2: begin { set up for DSR handshake on output } 

1: 718. xmit_hs = hw_hs; 

1: 719. if configptr*.iochannel = 0 then 

1: 720. xmtrr0O := $10 

1: 721. else 

1: 722. xmtzrr0O := $20; { port B } 

1: 723. xmit_wait := false { clear XOFF state. fixes bug } 
1: 724. end; 

1: 725. 

1: 726. 3: if cur_req_ ptr <> nil then 

1: 727. DRIVER := errbase + 9 { don't change xmit_hs during I/O } 
1: 728. else 

1: 729. begin { set up for xon, xoff handshake on output } 
1: 730. xmit_hs := xmt_xon; 

1: 731. xmit_wait := false { put in xon state. fixes bug } 
1: 732. end; 

1: 733. 

1: 734. 4: begin { set up for delay on cr, lf } 

1: 735. xmt_hs := xmit_delay; 

1: 736. crlfdelay := ar10[0]; 

1: 737. xmit_wait := false { clear xoff state. fixes bug } 
1: 738. end; 

1: 739. 

1: 740. 5: begin { set baud rate } 

1: 741. speed := (temp div ar10[0]) - 2; 

1: 742. WR_SCC(14, 0); { turn off baud rate generator } 
1: 743. {$R-} {rangecheck off} 

1: 744. WR_SCC(12, speed); { 1sb } 

1: 745. {$IFC debug2} 

1: 746. {$R+}  { rangecheck back on if debug } 

1: 747. {SENDC} 

1: 748. WR_SCC(13, speed div 256); { msb } 

1: 749. WR_SCC(14, openwrl14) 

1: 750. end; 

1: 751. 6: no_block := (arl0[0] <> 0); { set input blocking/not-blocking mode } 
1: 752. 

1: 753. 7: begin { set input mode to hardware handshake } 

1: 754. if num_typeah >= full_thresh then 

1: 755. begin 

1: 756. WR_SCC(5, openwr5 - (-128)); { no DTR } 
1: 757. last_stopped := true; 

1: 758. 

1: 759. {$IFC debug2} 

1: 760. if TRACE(DD, 5) then 

1: 761. writeln(' RS-232 DTR turned off.'); 

1: 762. { SENDC} 

1: 763. 

1: 764. end 

1: 765. else 

1: 766. begin 

1: 767. WR_SCC(5, openwr5); { enable receive handshake signals } 
1: 768. last_stopped := false; 

1: 769. 

1: 770. {$IFC debug2} 

1: 771. if TRACE(DD, 5) then 

1: 772. writeln(' RS-232 DTR turned on.'); 

1: 773. { SENDC} 

1: 774. 

1: 775. end; 

1: 776. rec_hs := hwhs; 

1: 777. end; 

1: 778. 

1: 779. 8: begin { set input mode to xon/xoff } 

1: 780. rec_hs := rec_xon; 

1: 781. if num_typeah >= full_thresh then 

1: 782. begin 

1: 783. last_stopped := true; 

1: 784. hschar_pending = xoff_char; 

1: 785. BYTEO (port_ptr) 

1: 786. end 

1: 787. else 

1: 788. begin 
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1: 789. last_stopped := false; 

1: 790. hschar - pending = xon_char; 

Le 19h. BYTEO (port_ptr) 

1: 792. end 

1: 793. end; 

1: 794. 

1: 795. 9: begin { flush and redefine typeahead buffer } 

1: 796. num_typeah := 0; 

1: 797. get_typeah := put_typeah; 

1: 798. hschar_ pending = no_char; 

1: 799. if last_stopped then 

1: 800. begin 

1: 801. last_stopped := false; 

1: 802. if rec_hs = hwhs then 

1: 803. begin { toggle modem signals } 

1: 804. 

1: 805. {$IFC debug2} 

1: 806. if TRACE(DD, 5) then 

1: 807. writeln(' RS-232 DTR turned on.'); 
1: 808. {SENDC} 

1: 809. 

1: 810. WR_SCC(5, openwr5) { enable receive handshake signals } 
1: 811. end 

1: 812. else 

1: 813. begin { send xon } 

1: 814. hschar - pending = xon_char if 

Le 815. BYTEO (port_ptr) ; 

1: 816. end; 

1: 817. end; 

1: 818. ptrsysg := pointer (bsysglob) ; 

1: 819. if ar10[0] >= 0 then 

1: 820. begin { allocate new buffer } 

1: 821. if size_typeah > 0 then 

1: 822. RELSPACE (ord(start_typeah), ptrsysg%) ; 

1: 823. size _typeah := ar10[0]; 

1: 824. if size_typeah > 0 then 

1: 825. if not GETSPACE(size_typeah, ptrsysg*, temp) then 
1: 826. DRIVER := errbase + 6 

1: 827. else 

1: 828. begin 

1: 829. start_typeah := pointer (temp) ; 

1: 830. get_typeah := start_typeah; 

1: 831. put_typeah := get_typeah; 

1: 832. end_typeah := pointer(temp + size_typeah) 
1: 833. end 

1: 834. end; 

1: 835. 

1: 836. if ar10[1] >= -1 then { -2 means don't change, -1 means disable } 
1: 837. empty thresh := arl0[1]; 

1: 838. if ar10[2] >= -1 then { -2 means don't change, too big means disable } 
1: 839. full_thresh := ar10[2] 

1: 840. end; 

1: 841. 

1: 842. 10: begin { enable framing err as discon } 

1: 843. with hwcontrol* do 

1: 844. begin 

1: 845. controlreg := 15; 

1: 846. i := 128; { NOP to assure delay between accesses } 
1: 847. i := controlreg { get current regl5 value } 
1: 848. end; { with } 

1: 849. if arl10[1] <> 0 then 

1: 850. begin 

1: 851. discon_detect := true; 

1: 852. if i >= 0 then 

1: 853. i :=i + (-128) 

1: 854. end 

1: 855. else 

1: 856. begin 

1: 857. discon_detect := false; 

1: 858. if i < 0 then 

1: 859. i := i - (-128) 

1: 860. end 

1: 861. WR_SCC(15, i) { set updated reg15 value } 
1: 862. end; 

1: 863. 

1: 864. 11: begin { set up for no handshake on output } 
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1: 865. xmt_hs = hw_hs; 

1: 866. xmtrr0O := 0; 

1: 867. xmtzrr0O := 0; 

1: 868. xmit_wait := false { clear xoff state. fixes bug } 

1: 869. end; 

1: 870. 

1: 871. 12: xmit_timeout := ar10[0] * 1000; 

1: 872. { set transmit-handshake timeout in seconds. <= 0 is infinite } 
1: 873. 

1: 874. 13: { put into break state for specified period of time } 

1: 875. if cur_req_ pre <> nil then 

1: 876. DRIVER := errbase + 9 { don't start break during I/O } 
1: 877. else 

1: 878. begin 

1: 879. ALARMRELATIVE (xmit_ref, ar10[0]); { remain in break state until 
1: 880. 

larm or dcontrol 1 } 

1: 881. 

1: 882. if not in_break then 

1: 883. begin 

1: 884. in_break := true; 

1: 885. openwr5 := openwr5 + $10; { enable break } 
1: 886. if ((rec_hs = hwhs) and last_stopped) or (arl0[1] <> 0) then 
1: 887. WR_SCC(5, openwr5 - (-128)) { no DTR } 

1: 888. else 

1: 889. WR_SCC(5, openwr5) { enable receive handshake signals } 
1: 890. end; 

1: 891. end; 

1: 892. 

1: 893. 17: autolf := (ar10[0] <> 0); { enable/disable auto LF } 

1: 894. 

1: 895. otherwise 

1: 896. DRIVER := errbase + 9; 

1: 897. end; { case dcode } 

1: 898. 

1: 899. INTSON (prevints) 

1: 900. end { with } 

1: 901. end; { controlit } 

1: 902. 

1: 903. procedure STARTIT; 

1: 904. [RRR K RRR ER KERIKERI RRR KERR KEKE ERE RERKERERERE | 

1: 905. {* Internal procedure to handle SEQIO "case" *} 

1: 906. [RAHI ER RIKER ERIE REE KER ER EERE KERR ERKERERERE | 

1: 907. 

1: 908. VAR 

1: 909. ptrsysg: “longint; 

1: 910. leftlink: link_ptr; 

1: 911. ext_ptr: seqextptr_type; 

1: 912. 

1: 913. begin 

1: 914. with parameters’ do 

1: 915. begin 

1: 916. ext_ptr := pointer (req*.req extent) ; 

1: 917. if ext_ptr®.num_bytes <= 0 then 

1: 918. DRIVER := errbase + 1 { illegal parameters } 

1: 919. else 

1: 920. begin 

1: 921. 

1: 922. {$IFC debug2} 

1: 923. if TRACE(DD, 10) then 

1: 924. if ext_ptr*.read_ flag then 

1: 925. writeln('Reading RS-232.') 

1: 926. else 

1: 927. writeln(' Writing RS-232.'); 

1: 928. {#ENDC} 

1: 929. 

1: 930. with port_ptr* do 

1: 931. begin { add request to the device queue or finish the request now } 
1: 932. DRIVER := 0; { no errors } 

1: 933. ptrsysg := pointer(bsysglob); { set pointer to b_sysglobal ptr } 
1: 934. INTSOFF(rsints, prevints) ; 

1: 935. leftlink := pointer (nullink.bkwd_link + ptrsysg%*) ; 

1: 936. if ext_ptr*.read_flag and no_block and 

1: 937. ((num_typeah = 0) or (leftlink <> @nullink)) then 

1: 938. begin { ok to complete request since non-blocking read w/o char } 
1: 939. ADJ_IO_CNT(false, ext_ptr*.buff rdb ptr) ; 
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940. 
941. 
942. 
943. 
944. 
945. 
946. 
947. 
948. 
949. 
950. 
951. 
952. 
953. 
954. 
955. 
956. 
957. 
958. 
959. 
960. 
961. 
962. 
963. 
964. 
965. 
966. 
967. 
968. 
969. 
970. 
971. 
972. 
973. 
974. 
975. 
976. 
977. 
978. 
979. 
980. 
981. 
982. 
983. 
984. 
985. 
986. 
987. 
988. 
989. 
990. 
991. 
992. 
993. 
994. 
995. 
996. 
997. 
998. 
999. 
:1000. 
:1001. 
:1002. 
:1003. 
:1004. 
:1005. 
:1006. 
:1007. 
:1008. 
:1009. 
:1010. 
:1011. 
:1012. 
:1013. 
:1014. 
:1015. 


end; 


{ startit } 
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if discon_detect and (hwcontrol*.controlreg < 0) then 
begin { assume disconnected cable on input framing error } 


xmit_wait := false; 
req*.hard_ error := errbase + 8; 
UNBLK_REQ(req, false) 
end 
else 
UNBLK_REQ(req, true) 
end 
else 
begin 
ENQUEUE (req*.dev_chain, leftlink*, ptrsysg%) ; 
if cur_req ptr = nil then 
if not in_break then 
START_NEW_ REQUEST (port ptr) ; 
end; 
INTSON (prevints) 


end { with port_ptr } 
end; {else} 
end { with parameters } 


procedure BYTEIN; 
[RHR RR RHR REE IRE KERRIER ERR KEKE RER EERE REREREEKE | 


VAR 


begin 


{* Put received char in input buffer or type-ahead buffer *} 
[BR HK RRR RRR KKK RIKER ARIK ERE RARE KERR RE RE RE EEE REREREEKE | 


i: integer; 


with port_ptr* do 


begin 


if char_in < 0 then { set "i" to char _in w/o parity bit set } 


else 


i := ch 


chi 


i: 


if (xmit_hs = 
begin { got xoff } 


end 
else 


ar_in + $0080 
ar_in; 


xmt_xon) and (i = $13) then 


{$IFC debug2} 


if TRACE(DD, 5) then 


write. 
{$ENDC} 


xmit_wa. 


1n(' RS-232 xoff received.') ; 


it := true; 


if cur_req ptr <> nil then 


if no 


af (xmi 
begin 


t cur_read_ flag then { fixes bug } 
if xmit_timeout > 0 then 
ALARMRELATIVE (xmit_ref, xmit_timeout) ; 


t_hs = xmt_xon) and (i = $11) then 


if xmit_wait then 


begin 


end 
end 
else { 


{ got xon } 


{$IFC debug2} 
if TRACE(DD, 5) then 

writeln(' RS-232 xon received.') ; 
{$ENDC} 


xmit_wait := false; 
if cur_req ptr <> nil then 
if not cur_read flag then { fixes bug } 
begin 
ALARMOFF (xmit_ref) ; 
BYTEO (port_ptr) 
end 


have real input character, put into typeahead buffer } 


if (num_typeah + 1) <= size_typeah then 


begin 


{still room in buffer} 
put_typeah* := char_in; 
put_typeah := pointer(ord(put_typeah) + 1); 
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PRP PPP RPBPP PRP BP BPP BP BRB PP BBP BPP PRP BPP PPP PPP PPP PPP PPP RPP PPP PP RP EP EPP PP EPP PP EP PPP RP PPP RP PPR Re RR 


:1016. 
:1017. 
:1018. 
:1019. 
:1020. 
:1021. 
:1022. 
:1023. 
21024. 
:1025. 
:1026. 
:1027. 
:1028. 
:1029. 
:1030. 
:1031. 
:1032. 
:1033. 
21034. 
:1035. 
:1036. 
:1037. 
:1038. 
21039. 
:1040. 
21041. 
21042. 
21043. 
21044. 
21045. 
71046. 
21047. 
:1048. 
21049. 
:1050. 
:1051. 
:1052. 
21053. 
21054. 
:1055. 
:1056. 
:1057. 
:1058. 
21059. 
:1060. 
:1061. 
:1062. 
:1063. 
71064. 
:1065. 
:1066. 
:1067. 
:1068. 
:1069. 
:1070. 
:1071. 
:1072. 
21073. 
21074. 
:1075. 
:1076. 
21077. 
:1078. 
:1079. 
:1080. 
:1081. 
21082. 
:1083. 
21084. 
:1085. 
:1086. 
:1087. 
:1088. 
:1089. 
:1090. 
:1091. 


if ord(put_typeah) = ord(end_typeah) then 
put_typeah := start_typeah; { wrap around } 
num_typeah := num_typeah + 1; 
if num_typeah = full _ thresh then 
begin 
last_stopped := true; 
if rec_hs = hwhs then 
begin { toggle modem signals } 


{$IFC debug2} 
if TRACE(DD, 5) then 

writeln(' RS-232 DTR turned off.'); 
{$ENDC} 


WR_SCC(5, openwr5 - (-128)) { enable receive handshake signals } 
end 
else 
begin { send xoff } 
hschar_pending = xoff_char; 
BYTEO (port_ptr) 
end 
end; 
if cur_req ptr <> nil then 
if cur_read_ flag then 


COPYBYTES (port _ptr) 
end 
else { char gets thrown away } 
begin 
if rec_hs = rec_xon then 
begin { send xoff again } 
hschar_pending := xoff_char; 
BYTEO (port_ptr) ; 
last_stopped := true; 
end 
end 


end; { with port ptr } 
end; { bytein } 


[RRR ER KEKE RR IKKE REE IRE REE REE R KEKE RE RE REEKERERKEERKRERERK | 


begin { DRIVER } 
port_ptr := pointer (parameters’.configptr%.cb addr) ; 


case parameters’.fnctn_code of 
seqio: STARTIT; 


dinit: INITIT; { call subroutine to reduce size of DRIVER } 

dcontrol: CONTROLIT; { call subroutine to reduce size } 

dalarms: XMT_TO HNDL(port_ ptr); { alarm routine } 

dinterrupt: begin { ignore call version & returned function value for ints } 


with port_ptr*, hwcontrol* do 
case parameters*.intpar of 


axmit: 
begin 
if hschar_pending <> no_char then 
BYTEO (port_ptr) 
else 


if (cur_req_ ptr = nil) or cur_read_ flag or xmit_wait then 
controlreg := $28 { ignore output interrupts } 

else 

with cur_info ptr* do 
if waitb4next then 
begin { start up delay following CR or LF } 


waitb4next := false; 

ALARMRELATIVE (xmit_ref, crlfdelay) ; 

xmit_wait := true; 

controlreg := $28; { start timer & kill interrupt } 
end 
else 


if xfer_count < num bytes then 
BYTEO (port_ptr) { send next byte out } 
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:1092. else 

21093. begin { complete previous request } 

21094. controlreg := $28; { disable transmit interrupts with $28 } 
21095. FINISH_REQ(port ptr, true) 

:1096. end 

21097. end; {axmit} 

:1098. 

:1099. amodem: begin 

:1100. if cur_req_ ptr <> nil then 

:1101. if discon_detect and (controlreg < 0) then 

:1102. begin { assume disconnected cable on input framing error } 
21103. if xmit_wait then { fixes bug } 

21104. begin 

21105. ALARMOFF (xmit_ref) ; 

:1106. xmit_wait := false 

71107. end; 

71108. cur_req ptr*.hard error := errbase + 8; 

21109. FINISH_REQ(port ptr, false) 

:1110. end 

FLII1; else 

21112. if xmit_wait then 

21113. if xmit_hs = hw_hs then 

21114. begin { we've been waiting for modem handshake to change } 
21115. 

21116. {$IFC debug2} 

21117. if TRACE(DD, 5) then 

21118. writeln(' RS-232 resume xmit after hw handshake. ') ; 
21119. { $ENDC} 

:1120. 

71121. xmit_wait := false; 

21122. ALARMOFF (xmit_ref) ; 

$11235 BYTEO (port_ptr) 

21124. end; 

21125. controlreg := $10 { reset the modem interrupt state } 
21126. end; {amodem} 

21127. 

:1128. arecv: begin 

21129. char_in := hwdata%; { get character } 

:1130. BYTEIN; { put received char in input buffer or typeahead buffer } 
21131. end; {arecv} 

21132. 

21133. aerr: begin 

21134. controlreg := 1; { prepare to read register 1 with overrun error stat } 
1135. i := 128; { NOP to assure delay between accesses } 

71136. i := controlreg; 

21137. if prity_char <= 0 then { testing for parity errs } 

21138. if ALLSET($10, i) then 

21139. begin { parity error } 

1140. i := hwdata*; { throw away real char } 

1141. char_in := prity char; { replace with parity error char: 00 or 80 } 
21142. BYTEIN; 

71143. end; 

21144. controlreg := $30; { reset input error } 

21145. end; {aerr} 

21146. 

21147. end { case parameters*.intpar } 

:1148. 

21149. port_ptr*.hwcontrol*.controlreg := $38; { reset interrupt latch } 

21150. end; { dinterrupt case } 

21151. 

21152. reqrestart: 

21153. begin 

71154. DRIVER := 0; 

21155. 

21156. {$IFC debug2} 

21157. if TRACE(DD, 5) then 

21158. writeln(' RS-232 restarting request.'); 

21159. {SENDC} 

:1160. 

21161. INTSOFF(rsints, prevints) ; 

21162. 

21163. with port_ptr* do 

21164. begin 

:1165. if restrt_in then 

21166. begin 

21167. COPYBYTES (port _ptr) ; 


PRPRPRPBP PPP PPR PPP BBP BPP PRP BPP PRP PPP PP PPP PPP PPP PPP PEP PPP PP RP EP PEP PP PPP PEP PPP RP PPP RP PPP RP RP RR 
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1:1168. restrt_in := false 
1:1169. end; 
1:1170. if restrt_out then 
131171, begin 
1:1172. BYTEO (port_ptr) ; 
1:1173. restrt_out := false 
1:1174. end 
1:1175. end; 
1:1176. 
1:1177. INTSON (prevints) ; 
1:1178. end; {reqrestart} 
1:1179. 
1:1180. ddown: begin 
1:1181. INTSOFF(rsints, prevints) ; 
1:1182. DRIVER := 0; 
1:1183. with port_ptr* do 
1:1184. begin 
1:1185. if cur_req_ ptr <> nil then 
1:1186. DRIVER := errbase { + ? } 
1:1187. else 
1:1188. begin 
1:1189. ptrsysg := pointer (bsysglob) ; { set up pointer to b sysglobal ptr } 
1:1190. if size_typeah > 0 then 
1:1191. RELSPACE (ord(start_typeah), ptrsysg%*) ; 
1:1192. ALARMRETURN (xmit_ref) ; 
1:1193. if parameters”*.configptr*.iochannel = 0 then { reset channel } 
1:1194. WR_SCC(9, -118) {=$8A} 
1:1195. else 
1:1196. WR_SCC(9, $4A); 
1:1197. parameters’ .configptr*®.cb addr := ord(nil) ; 
1:1198. RELSPACE (ord(port_ptr), ptrsysg%) ; 
1:1199. end 
1:1200. end; 
1:1201. INTSON (prevints) 
1:1202. end; {ddown} 
1:1203. 
1:1204. otherwise 
1:1205. DRIVER := errbase + 2; { currently unimplemented w/ error } 
1:1206. end; { case parameters*.fnctn_code } 
1:1207. end; { DRIVER } 
1:1208. 
1:1209. end. 
1:1210. 
End of File: RS232.TEXT 
Directory of files in Cross Reference: 
1: RS232.TEXT 
level = 1. 
a 1: 171, 1: 187, 1: 565, 1:1196. 
adj_io_c1: 374, 1: 939. 
aerr ZL: 29*, 1:1133. 
alarm_as 1: 620. 
alarmoff 1: 378, 1:1006, 1:1105, 1:1122. 
alarmrel 1: 203, 1: 339, 1: 879, 1: 989, 1:1085. 
alarmret 1:1192. 
allset 1: 127, 1: 154, 1: 154, 1: 156, 1:1138. 
amodem 1: 27*, 1:1099. 
arl10 1: 584=, 1: 633=, 1: 634=, 1: 635=, 1: 681, 1: 705, 1: 736, 1: 741, 
1: 751, 1: 819, 1: 823, 1: 836, 1: 837, 1: 838, 1: 839, 1: 849, 
1: 871, 1: 879, 1: 886, 1: 893. 
arecv 1: 28*, 1:1128. 
autolf 1: 55*, 1: 168, 1: 606=, 1: 893=. 
axmit 1: 26*, 1:1073. 
bkwd_lin 1: 608=, 1: 935. 
bsysglob 1: 371, 1: 435, 1: 530, 1: 818, 1: 933, 1:1189. 
buff off 1: 159, 1: 237. 
buff _rdb 1: 159, 1: 190, 1: 237, 1: 262, 1: 374, 1: 939. 
cal 1: 484*. 
cb_ addr 1: 536=, 1:1057, 1:1197=. 
chain fo 1: 318. 
chan 1: 518*, 1: 531=, 1: 547, 1: 570, 1: 594. 
char_in 1: 480*, 1: 973, 1: 974, 1: 976, 1:1014, 1:1129=, 1:1141=. 
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1: 181. 
1: 229%, 
1: 263, 
1: 531, 
1: 675, 
Le 

1: 431=, 
1: 847, 
1:1136, 
1: 332, 


chr 
ent 


configpt 


controlr 


copybyte 
crlfdela 
cur_info 
cur_read 
cur_req_ 


PRPR 


1: 376, 

1: 986, 
d 1: 169, 
dalarms 1:1066. 
data_ptr 1: 116%, 


1: 259. 
dc_rec 1: 522, 
dc_rec_p 1: 656%, 
dcode 1: 583=, 
dcontrol 1: 581, 
dcrec 1: 522*, 

1: 634, 
dd 1: 133, 

1: 806, 
ddown 1:1180. 


dequeue 1: 376. 
dev_chai 1: 376, 


dinit 1:1062. 
dinterru 1:1068. 
discon_d 1: 
driverde 1: 
driversu 1: 
dversion 1: 582=, 
empty_th 1: 
end_type 1: 
enqueue 1: 951. 
err 1: 117%, 

1: 623=. 
errbase 1: 

1: 896, 


errnum 1: 229*, 
ext_ptr 1: 911*, 
fnctn_co 1: 630=, 


forward 1: 
freeze _s 1: 159, 
full_thr 1: 
fwd_link 1: 390, 
get_type 1: 

1: 830=, 
getspace 1: 532, 
hard_err 1: 327=, 
hschar p 1: 

1: 798=, 
hw_hs Le 
hwcontro 1: 

1: 563=, 
hwdata 1: 
hwhs 1: 

1:1022. 
i 1: 229%, 

1: 279=, 

1: 586=, 

1: 859=, 

1:1135=, 
implemen 1: 
in_break 1: 
in_servi 1: 319. 
intl 1: 

1: 480, 
intliptr 1: 
intlirec 1: 
intlrecp 1: 


1: 244=, 
1: 289. 
1: 536, 
1: 719, 
39*, 1: 
1: 433=, 
1: 940, 
1:1144=, 
1:1040, 
73*, 1: 
45*, 1: 
46*, 1: 
44*, 1: 
1: 393=, 
1:1003, 
1: 187. 


1: 174=, 


1: 656. 
1: 667=, 
1: 632=, 
1: 630, 
1: 582, 
1: 635, 
1: 143, 
1: 923, 


1: 951. 


52*, 
11. 
13. 
1: 631=, 
g4*, 1: 
g6*, 1: 


1: 


1: 159, 


25*, 1: 
1: 918, 
1: 237, 
1: 916=, 
1:1059. 
94. 
1: 237. 
83*, 1: 
1: 436, 
g5*, 1: 
1: 831. 
1: 825. 
1: 452=, 
sox, 1: 
1: 814=, 


1: 580=, 


123, 


1:1167. 
736=, 
157, 
323=, 
159, 


1: 673. 
1:1064. 
1: 583, 


324, 


265, 
250, 


327, 


1: 239. 
1: 917, 


754, 
1: 607=, 
250, 


125, 


32*, 1: 153, 
4g*, 1: 121, 
1: 564, 

47*, 1: 137=, 
33*, 1: 268, 


250=, 
479%, 
653*, 
859, 

:1136=, 


1: 423, 


1: 245, 


1: 580, 
1057, 
163=, 
498=, 
:1079=, 
:1149=. 


21085. 
234, 
331, 
237, 
441, 
1038, 


176, 


669. 


: 584, 
636. 
180, 
981, 


BPR 


609=, 


PR 


my 


ay 


PRPPRPRPRPRRB 


PRPPPR 


ay 


Pee 


520. 


a 


PRPR 


ay 


ay 


BPR 


PRPRPRPRPHERRB 


PRPRPRPR 


21 


21 


my 


50 


, 


246=, 1: 250, al 
1: 620, 1: 629=, 
193, 1:1197. 
205=, 1: 278=, 1: 
500=, 1: 554, 1: 
087=, 1:1094=, 1:1 
320=, 1: 321, Ls 
379, 1: 987, 1:1 
318=, 1: 319, 15 
452, 1: 545=, 1: 
078, 1:1100, 1:1 
230*, 1: 243=, 1: 
1: 585, 1: 631, 
198, 1: 272, 1 
998, 1:1026, 1:1 
851=, 1: 857=, 1: 
016. 
: 367*, 1: 518*, 1 
: 533, 1: 671, 1: 
108, 1:1186, 1:1 
1: 936, 1: 939. 
839=, 1:1019. 
257=, 1: 259, 1 
108= 
149= 1: 285=, 1: 
046=, 1:1075. 
718, 1: 865, 1:1 
324, 1: 427, 1: 
713, 1: 843, 1 
184=, 1: 601=, 1:1 
616, 1: 700, ‘15 
252=, 1: 255, 1: 
499=, 1: 518*, 1: 
847=, 1: 852, 1: 
968%, 1: 974=, 1: 
140= 
602=, 1: 679=, 1: 
1: 51, 1: 54, 
1: 86, 1: 116, al 
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: 386, 


117, 


940, 


: 527=, 


727, 
205. 


: 260=, 


1: 632, 
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ay 


PR 


PRPRPRPR 


BPR 


si 


101. 


533=, 


826, 


: 260, 


BBE 
21 


784=, 


553=, 
070, 
140. 
802, 


259, 
564=, 
853, 
977, 


884=, 


1: 256, 


1: 429=, 
1: 845=, 
1:1134=, 


1:1081. 
1:1078. 
1: 375, 
1: 952, 


1: 256, 


1: 771, 


1: 542, 


1: 876, 


1: 7975, 


1: 790=, 


1: 554, 
1:1149. 
1: 886, 
1: 260, 
1: 575=, 
1: 858, 
1: 992, 
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interfac 1: 
intpar 1:1071. 
intsoff 1: 525, 
intson 1: 899, 
intson_t 1: 477. 
iochanne 1: 531, 
iospacem 1: 528. 
last_sto 1: 
1: 783=, 
leftlink 1: 910*, 
link_ptr 1: 910. 
linkage 1: 
moveleft 1: 255, 
no_block 1: 
no_char 1: 
nullink 1: 318, 

1: 608, 
nulllink 1: 
num_byte 1: 244, 
num_type 1: 

1: 781, 
odd 1: 705. 
ok_flag 1: 
openwrl14 1: 551=, 
openwr5 1: 

1: 592, 

1: 767, 
openwrl4 1: 
p 1: 521%, 
p_fnctn_ 1: 581=. 
param_pt 1: 
paramete 1: 

1:1057, 
params 1: 521. 
parptr 1: 585=, 
pointer 1: 174, 

1: 529, 

1: 916, 
port_ptr 1: 478*, 

930, 

1:1066, 

1:1163, 
portacon 1: 520*, 
portbcon 1: 520*, 
portrec 1: 
portrec_ 1: 
prev_cha 1: 

1: 187, 
prevints 1: 477*, 

1:1181, 
prity_ch 1: 
ptrsysg 1: 368%, 

1: 517%, 

1: 825, 
put_type 1: 
read fla 1: 323, 
real_add 1: 118*, 


rec_hs 1: 

1: 886, 
rec_xon 1: 
recv_hs 1: 
regno 1: 484%, 
relspace 1: 624, 
req 1: 916, 
req_exte 1: 320, 
regptr_t 1: 
reqresta 1:1152. 
reqsrv_f 1: 319=. 
reqstatu 1: 319. 
restrt_i 1: 
restrt_o 1: 
rs232 Ls 
rsints 1: 525, 
send_hs 1: 
segextpt 1: 
seqio 1:1060. 


1: 668, 
1: 956, 


1: 934, 
1:1177, 
1: 662, 1: 675, 
79%, 1: 264, 

1: 789=, 

1: 935=, 


49. 


531, 


1: 667. 
1: 256, 


1: 537=, 


1: 529=, 
42, 1: 
42*, 1: 
54*, 1: 
1: 605=. 
1: 525, 
1:1201. 
g1*, 1: 
1: 371=, 
1: 530=, 
1: 909%, 
85*, 1: 
1: 924, 
1: 160, 
77*, 1: 
1:1022, 
33, 1: 
33*, 1: 
1: 498. 
1: 822, 
1: 943, 
1: 916. 
44. 


: 240=, 
164=, 


1: 668, 
59. 
911. 


1: 
1: 


Lis 


1: 
ni 
1? 


BPR 


PRPRPRPP 


ay 


ay 


1: 


1161, 
1201. 


719, 
267=, 


799, 
937, 


380=, 
383=, 


934, 
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1:1181. 
1:1193. 
1: 430, 1: 618=, 1: 700, 
1: 801=, 1: 886, 1:1021=, 
1: 951. 
1: 751=, 1: 936. 
1: 382, 1: 798, 1:1075. 
1: 436, 1: 607, 
1:1090. 
1: 246, 1: 263=, 1: 263, 
1:1012, 1:1018=, 1:1018, 
1: 426, 1: 431, 1: 433, 
1: 685=, 1: 685, 1: 701, 
1: 885, 1: 887, 1: 889, 
1: 586, 1: 629, 1: 630, 
1: 580, 1: 620, 1: 629, 
1:1193, 1:1197. 
1: 320, 1: 371, 
1: 601, 1: 667, 1: 818, 
1:1015, 1:1057, 1:1189. 
1: 669, 1: 785, 
1:1007, 1:1035, 1:1040, 
1:1091, 1:1095, 1:1109, 
1:1183, 1:1198. 
1: 553. 
97, 1: 210, 1: 297, 1: 398, 
1: 171=, 1: 176=, 1: 181, 
1: 934, 1: 956, 
1: 691=, 1: 696=, 1: 708=, 
1: 419*, 1: 435=, 
1: 607, 1: 624, 1: 654%, 
1: 935, 1: 951, 1:1189=, 
1:1014=, 1:1015=, 1:1015, 
1: 238, 1: 243. 
1: 616=, 1: 700, 1: 776=, 
1: 947, 1: 951. 
1: 603=, 1:1165, 1:1168=. 
1: 604=, 1:1170, 1:1173=. 
1:1161, 1:1181. 


1: 607, 


1: 435, 


1: 791, 


1:1161, 


1: 436, 
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1: 757=, 
1:1048=. 


1: 608, 


ay 


: 265, 
21019. 


ay 


1: 552=, 
703, 
1030. 


BPR 


1: 636. 


1: 659, 


1: 528, 
1: 829, 


1: 815, 
1:1047, 
1:1123, 


1: 478. 
1: 184, 


1:1177, 


1:1137, 
1: 481%, 
1: 818=, 
1:1191, 
1:1016, 


1: 780=, 


1 


ay 


BPR 


: 768=, 


754, 


: 562=, 
756, 


914, 


832, 


:1057=, 
:1149, 


187, 


21141. 
822, 


71198. 
:1017=. 


802, 


6 fF? Device Drivers Manual 


size typ 1: 80, 1: 628=, 
1:1190. 
sizeof 1: 532. 
speed 1: 653*, 1: 741=, 1: 744, 
start_ty 1: 85*, 1: 257, 
status 1: 117*, 1: 123=, 1: 127, 
temp 1: 519*, 1: 532, 1: 536, 
1: 825, 1: 829, 
trace 1: 133, 1: 143, 1: 180, 
1: 806, 1: 923, 
unblk_re 1: 375, 1: 944, 1: 947. 
unfreeze 1: 190, 1: 262. 
unit 1: 2. 
val 1: 500. 
waitb4ne 1: 72*, 1: 188=, 
xfer_cou 1: 174, 1: 175=, 
1: 446, 1:1090. 
xmit_del 1: 32, 1: 186, 
xmit_hs 1: 443, 1: 718=, 1: 730=, 
xmit_ref 1: 62*, 1: 203, 
1:1006, 1:1085, 
xmit_tim 1: 65*, 1: 202, 
1: 989. 
xmit_wai 1: 61*, 1: 204=, 
1: 723=, 1: 731=, 
1:1078, 1:1086=, 
xmit_xon 1: 32*. 
xmt_hs 1: 59*, 1: 153, 
xmt_to_h 1:1066. 
xmt_xon 1: 336, 1: 443, 1: 730, 
xmtrrO 1: 68*, 1: 154, 
xmtzrr0O 1: 69*, 1: 154, 
xoff_cha 1: 89*, 1: 129, 
xon_char 1: 89, 1: 285, 
Procedures 
bytein 1: 963*, 1:1130, 1:1142. 
byteo Ls 97*, 1: 286, 
1:1035, 1:1047, 
controli 1: 646*, 1:1064. 
finish_r 1: 94*, 1: 292, 
initit 1: 510*, 1:1062. 
port 1: 94*, 1: 97%, 
1: 316, 1: 328, 
1: 437, 1: 447, 
start _ne 1: 297*, 1: 391; 1: 437, 
startit 1: 903*, 1:1060. 
wr_scc 1: 484*, 1: 555, 1: 565, 
1: 592, 1: 595, 
1: 694, 1: 695, 
1: 748, 1: 749, 
1:1030, 1:1194, 
xmit_to_ 1: 398%. 
Functions 
driver 1: 15*, 1: 459%, 
1: 896=, 1: 918=, 


Declaration Character : '*' 


Assignment Character : 


ta! 


ay 


ay 


ay 


ay 


BPR 


BPR 


PR 


PRPPRP 


821, 


1: 748. 


822, 


1: 154, 
1: 537, 


832. 


1: 198, 


981, 


586, 
932=, 


1 


Le 


BR 


my 


ay 


may 


BR 


ay 


ay 


ay 


: 823=, 1: 824, 1: 825, 
829=, 1: 830, 1:1017, 
1: 154, 1: 156. 
1: 655*, 1: 663=, 1: 665=, 
1: 272, 1: 386, 1: 760, 
998, 1:1026,  1:1117, 
1082, 1:1084= 
243, 1: 244, 1: 289=, 
735. 
1: 992, 1:1113 
378, 1: 620, 1: 621, 
:1122, 1:1192. 
338, 1: 339, 1: 619=, 
336, 1: 377, 1: 440, 
868=, 1: 942=, 1: 985=, 
:1106=, 1:1112,  1:1121= 
336, 1: 445, 1: 611=, 
1: 992. 
559=, 1: 720=, 1: 866=. 
560=, 1: 722=, 1: 867=. 
1034, 1:1046. 
814. 
447, 1: 785, 1: 791, 
1091, 1:1123,  1:1172. 
348%, 1: 449, 1: 453, 
210*, 1: 234, 1: 286, 
342, 1: 372, 1: 391, 
453, 1: 543. 
1: 571, 1: 574, 1: 588, 
599, 1: 683, 1: 684, 
703, 1: 707, 1: 712, 
767, 1: 810, 1: 861, 
661=, 1: 671=, 1: 727=, 
:1154=, 1:1182=, 1:1186=, 
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1: 832, 


1: 289, 


1: 879, 
1: 871=, 
1: 444=, 
1: 994, 


1: 735=, 


1: 815, 


1:1095, 


my 


: 292, 
398%, 


ay 


1: 590, 
1: 689, 
1: 742, 
1: 887, 


1: 826=, 
1:1205=. 


1 


ay 


BR 


ay 


1012, 


: 291, 


865=. 


1007, 


71109. 


: 297%, 
422, 


690, 
744, 
889, 


876=, 
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Cross Reference Listing: 


Beginning of file: RS232MAIN.TEXT 


1; 1. 

1: 2. PROGRAM DUMMYMAIN; 

1; <i 

dks 4. USES 

1: 5: {$U object/driverdefs.obj} 

1 6. driverdefs, 

1: 7. {$U object/driversubs.obj} 

1: 8. driversubs, 

Lis 9. {$U object/rs232.obj} { these 2 lines vary from driver } 

alee 10. rs232; { to driver 
} 

rT: 11 

1 12. VAR 

An¢ 13. i: integer; 

1; 14. p: param_ptr; 

1.3 15. 

1: 16. begin 

is 17. i := driver (p) ; 

The 18. end; 


End of File: RS232MAIN. TEXT 


Directory of files in Cross Reference: 


1: RS232MAIN. TEXT 


level = 1. 

driver 1: 17. 

driverde 1: 6. 

driversu 1: 8. 

dummymai 1: 2. 

i 1: 13*, 1: 17. 
p 1: 14%, 1: 17. 
param_pt 1: 14. 

program 1: 2. 

rs232 Ls 10. 
Declaration Character : '*' 


Assignment Character : '=' 
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Cross Reference Listing: 


Beginning of file: DRIVERDEFS.TEXT 


ee ey 


oO 


OAHU BPWNHe 


UNIT DRIVERDEFS ; 


{ By Dave Offen } 
{ Copyright 1983, Apple Computer Inc. } 


INTERFACE 
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{ UNIT NEEDED BY CONFIGURABLE DRIVERS } 


{$U-} { DON'T use any iospaslib definitions in place of explicitly USE -d modules } 
{$X-} { Disallow automatic stack expansion in system code } 


{$SETC DEBUG:=TRUE} 


{$SETC DEBUG: 
{$SETC DEBUG2: 
{$SETC DEBUG3: 


=FALSE} 
=FALSE} 
=FALSE} 


{$SETC 0S1S:=TRUE} 


CONST 


[RRR HRI ERR IRR RRR IRI RRR ERIK RIK KER ERK RIKER REAR ERE RARER ERR EER RERERK 


{** 


{** The delineated values are also defined in PASCALDEFS assembly language routine. 


{** 


[RRR RRR IKE RHEE KER ER IRI ERR ERR IRR RIKER ARIK KER REAR ERR RERE REE EREKK 


{ valid values in INTSOFF_TYPE } 
{**} allints = $700; { all interrupts off} 


rsints = $600; 
slotints = $500; 
copsints = $200; 
vertints = $100; 
twigints = $100; 
winints = $100; 
clokints = $100; 


clkonints = 0; 


{**} bsysglob = $200; 
{**} portcbofset = -24609; 


{**} maxdev 


{**} dinterrupt 


dinit 
ddown 


seqio 
dskio 


dcontrol = 
reqrestart 


= 39; 


size_rspec_info 


max_ename = 32; 


iospacemmu = 126; 


= 5; 
= 6; 
7; 


ddiscon = 9; 


dattach = 12; 
hdinit = 13; 
hdskio = 14; 


dalarms = 17; 
hddown = 18; 


{ Definition of 
ed_slot1 
ed_slot2 


0; 
1; 


{ rs232 interrupts off } 
3 I/O slots interrupts off } 
cops interrupts off } 
vertical retrace interrupts off } 
twiggy interrupts off } 
winchester disk interrupts off } 
clock interrupts off } 
{ clock interrupts on; lower off } 


aA AAA 


{ memory addr of sysglobal base -- same as PASCALDEFS } 
{ this MUST be the same as port _cb ptrs in PASCALDEFS } 


{ size of device table } 


3; { size of specific info in reqblk } 


{ size of e name string } 


{ mmu used to map the system I/O space } 


{ valid function code values } 


"slot' # for Lisa Devices } 


{ the basic 3 slots } 
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13 


PRPPRPBPRPPBPHP PRP RPP BPR BPP PRP BPP PRP PPP PP PPP PPP PPP PPP PPP PP PP RPP PP PP EPP PP PP PP PPP Re Pe Ree) 


100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 


72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 
98. 
99. 


in genio } 


1: 146. 


ed_slot3 
cd_slot4 = 
ed_slot5 = 
ed_sce = 5; 
cd_soft = 6; 
cd_hard = "2. 
cd_paraport = 8; 
cd_console = 9; 


aA Aas 


TYPE 
intl = -128..127; { 1 byte integer } 
int2 = integer; { 2 byte integer } 
int4 = longint; { 4 byte integer } 
relptr = int2; { 2 byte pointer } 
absptr = int4; { 4 byte pointer } 
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2 
33 { 1.75's 2 expansion slots } 
4 


scc chip controlling two serial channels } 

twiggy/sony or whatever else serves as built-in floppy } 
widget or whatever serves as built-in hard disk } 
parallel port } 

alternate and primary console } 


{ 10-14 are still available } 


OSPORTION=(MM, PM, EM, EC, AC, FS, DD, INIT, TRECORD, SPARE1, SPARE2, SPARE3, SPAREA4) ; 


link_ptr = “linkage; 
linkage = record 
fwd_link: relptr; 
bkwd_link: relptr; 
end; 


intsoff_type = $100. .$700; 
intson_type = 0..$700; 


(RII III OI I IOI TOI IOI TOI KIKI IIA I AK Y 
{* 
{* COMMON HEADER FOR REQUEST BLOCKS AND PCBS *} 
{* 


[RRR R RRR EKER ERR IER ERK EERE RE RERE REE REREREEE | 


{pointer to a linkage record } 


{ forward link } 
{ backward link } 


{ interrupts off parameter } 


{ interrupts on parameter } 


*} 
*} 


rb_type = (pcb _ type, reqblk_type, ecm_type, sprl, spr2, spr3); 


rbheader type = “rb_headT; 
rb_headT = record 
header: linkage; 
kind: rb_type; 
end; 


[RRR RKRRERARERKEKREREREREREREREE | 
{* 
{* I/O STRUCTURES FOR DRIVERS *} 
{* 


[RRRKRRRERARERKERERREREREREREREE } 


{**} rec_port_cb = record 


{3%} 

{**} rs232: absptr; 
{**} via2: absptr; 
{**} vial: absptr; 
{**} screen: absptr; 
{**} floppy: absptr; 
{**} end; 


arrayl0ptr = “arrayl0; 
arrayl0 = array[0..9] of longint; 


regqptr_type = “reqblk; 
e name = string[max_ename] ; 


{**} devtype = 
{**} ptrdevrec = “devrec; 


{**} devrec = record 


{**} entry pt: absptr; 
1%} cb addr: absptr; 
{**} ext_addr: absptr; 


drvrec_ptr: absptr; 


devname: e name; 


{ used for passing 


{ driver 
{ ptr to 
{ ptr to 


a 
ia 


slotx: array[0..2] of absptr; 


{ 2 channels } 
{ COPS, SPEAKER, TIMER } 
{ hard disk, parallel printer } 


2 drives & parameter memory } 


arbitrary-length parameters } 


(diskdev, pascalbd, seqdev, bitbkt, non_io, sparl, spar2, spar3) ; 


address - nil if uninitialized } 
control block for this device } 
additional device info } 
{ ptr to driver-loading control record. 
Nil means non-configurable. Defined 


{ device name } 
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1: 147. slot_no: intl; { 0-2 or -1 if built-in } 

1: 148. iochannel: intl; { channel on hardware controller } 

1: 149. device_no: intl; { device on channel } 

1: 150. devt: devtype; { device type } 

1: 151. blockstructured: boolean; { true if device is block structured } 

1: 152. permanent: boolean; { don't unload when DOWNing } 

Tz; 153% self_ident: integer; { from controller card - for debugging } 

1: 154. required _drve: ptrdevrec; { ptr to "higher" configinfo - nil if none } 
1: 155. permreq ptr: reqptr_type; { ptr to pre-allocated req blk - nil if none } 
1: 156. preq_avail: boolean; { true when permreq ptr currently avail for use } 
1: 157. end; 

1: 158. 

1: 159. {**} ext_diskconfig = record { extension info for disk devrec } 

1: 160. {**} hentry pt: absptr; { entry pt for Hdisk calls } 

1: 161. {**} num_bloks: longint; { size of device } 

1: 162. {**} strt_blok: longint; { virtual volume start address } 

1: 163. {**} fs_strt_blok: longint; { offset within virtual volume to } 
1: 164. {**} { file system } 
1: 165. removable, ejectable: boolean; 

1: 166. {**} end; 

1: 167. 

1: 168. {**} configtype = array[0..maxdev] of ptrdevrec; 

1: 169. 

1: 170. {**} timestmp_interval = record 

1: 171. {**} sec: longint; 

1: 172. {**} msec: 0..999; 

Le “173% {**} end; 

1: 174. 

Ty 175: reqsts_type = record { request status } 

1: 176. reqsrv_f: (active, in_service, complete) ; 

1: 177. reqsuccess f: boolean; { complete successfully or not } 
1: 178. reqabt_f£: boolean; { abort pending or not } 

1: 179. end; 

1: 180. 

Te 181. reqblk = record { request block } 

1: 182. peb_chain: rb headT; { pcb chain, block header } 

1: 183. dev_chain: linkage; { device or pipe chain } 

1: 184. list_chain: linkage; { list of request blocks for blocking } 

1: 185. block_p_f: boolean; { block process flag } 

1: 186. blk_in_peb: intl; { generic block type for future changes } 

1: 187. reqstatus: reqsts_type; { request status } 

1: 188. operatn: intl; { O=write, l=read, 2=format, 3=unclamp... } 
1: 189. cfigptr: ptrdevrec; { identifies to which device this request 

1: 190. belongs if it's an I/O request } 
Lz 191. req_extent: absptr; { extdptr_type when devt=diskdev 

1: 192. segextptr_type when devt=seqdev } 
Ty 193. hard_error: integer; { error code when reqstatus.reqsuccess f 

1: 194. = FALSE } 

1: 195. reqspec_info: longint; { specific information such as sort 

1: 196. key for device's queue } 
1: 197. end; 

1: 198. 

1: 199. disk_io_type = (with_header, without_header, raw_io, chained_hdrs) ; 

1: 200. pagelabel = packed record 

1: 201. version: integer; 

1: 202. datastat: (dataok, datamaybe, databad) ; 

1: 203. filler: -32..31; 

1: 204. volume: intl; 

1: 205. fileid: integer; 

1: 206. dataused: integer; 

1: 207. abspage: int4; 

1: 208. relpage: int4; 

1: 209. fwdlink: int4; 

1: 210. bkwdlink: int4; 

I; 211, end; 

1: 212. 

1: 213. extdptr_type = “disk_extend; 

1: 214. disk_extend = record 

1: 215. xfer_count: longint; 

1: 216. read_flag: boolean; 

1: 217. buff_rdb ptr: absptr; 

1: 218. buff_offset: absptr; 

1: 219. resolved_addr: absptr; { results of freeze _seg } 

1: 220. blkno: longint; 

1: 221. soft_hdr: pagelabel; 

1: 222. last_fwd_link: int4; 
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1: 223. last_data_used: integer; 
1: 224. io_mode: disk_io_type; 
1: 225. num_chunks: integer; 
1: 226. miscl: integer; 
1: 227. misc2: longint; 
1: 228. end; 
1: 229. 
1: 230. segextptr_type = “seq_extend; 
1: 231. seq_extend = record 
1: 232. xfer_count: longint; 
1: 233. read_flag: boolean; 
1: 234. buff_rdb ptr: absptr; 
1: 235. buff_offset: absptr; 
1: 236. resolved_addr: absptr; { results of freeze _seg } 
1: 237. num_bytes: longint; 
1: 238. end; 
1: 239. 
1: 240. param ptr = “params; 
1: 241. params = record 
1: 242. configptr: ptrdevrec; 
1: 243. case fnctn_code: integer of 
1: 244. dskunclamp, ddown, hddown, dskformat, dinit, hdinit, ddiscon: (); 
1: 245. seqio, reqrestart, dskio: (req: reqptr_type) ; 
1: 246. dinterrupt, dalarms: (intpar: integer) ; 
1: 247. dcontrol: (parptr: absptr) ; 
1: 248. dattach: (n_configptr: ptrdevrec) ; 
1: 249. dunattach: (o_configptr: ptrdevrec; still_inuse: boolean) ; 
1: 250. hdskio: (c_omd: integer; c_sector: longint) ; 
1: 251. end; 
1: 252. 
1: 253. dc_rec = record { for dcontrol } 
1: 254. dversion: integer; 
1: 255. dcode: integer; 
1: 256. arl0: array[0..9] of longint; 
1: 257. end; 
1: 258. 
1: 259. 
1: 260. { Control Block for hard disk device } 
1: 261. hdiskcb_ptr = “hdisk_cb; 
1: 262. 
1: 263. { NOTE: Definitions marked with ** may have corresponding definitions in } 
1: 264. { Assembly language portions of drivers. 
} 
1: 265. 
1: 266. hdisk_cb = record { device/driver info for all Apple format hard disks } 
1: 267. {**} config addr: ptrdevrec; { config entry address - must be lst } 
1: 268. {**} ext_ptr: absptr; { ptr to driver specific info } 
1: 269. {**} raw_data_ptr: longint; { points to start of data } 
1: 270. {**} raw_header ptr: “pagelabel; { points to start of header } 
1: 271. {**} x_leng: longint; { offset to data } 
1: 272. {**} sect_left: integer; { for current request } 
1: 273. {**} v_flag: boolean; { re-read all writes? } 
1: 274. restrt_count: integer; { the retry count for this req } 
1: 275. restrt_limit: integer; { max number of restarts allowed } 
1: 276. total_restarts: longint; { # of restarts of state machine } 
1: 277. soft_header: pagelabel; { the buffer used to copy header } 
1: 278. int_prio: intsoff_type; { the interrupt priority of this } 
1: 279. { drive } 
1: 280. cur_info_ ptr: extdptr_type; { ptr to cur req's extension } 
1: 281. req_hd ptr: reqptr_type; { next request to be serviced } 
1: 282. dummy_req ptr: reqptr_type; { phoney request at cyl -1 or 32767 } 
1: 283. cur_num_ requests: integer; { not counting dummy request } 
1: 284. worstwarning: integer; { worst warning encountered in } 
1: 285. { this request } 
1: 286. end; 
1: 287. 
1: 288. 
1: 289. 
1: 290. [RARER RRR KER ERERERKEREEREREREERKE | 
1: 291. {* *} 
1: 292. {* DEFINITION OF SYSGLOBAL CELLS *} 
1: 293. {* *} 
1: 294. [RAR RK RHE KKK ERERER KEE KREREREREERKE 
1: 295. 
1: 296. { port_cb ptrs: rec_port_cb; port control block for drivers } 
1: 297. { configinfo: configtype; table of configured devices } 
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298. { sysa5: longint; A5 required for pascal } 
299. 

300. IMPLEMENTATION 

301. 

302. end. 

303. 


PRPRPRPRPR 


End of File: DRIVERDEFS.TEXT 


Directory of files in Cross Reference: 


1: DRIVERDEFS .TEXT 
level = 1. 


abspage 1: 207*. 


absptr 1: 89*, 1: 122, 1: 123, 1: 124, 1: 125, 1: 126, 1: 127, 1: 141, 
1: 142, 1: 143, 1: 144, 1: 160, 1: 191, 1: 217, 1: 218, 1: 219, 
1: 234, 1:.°235, 1: 236, 1: 247, 1: 268. 

ac 1: 91%. 

active 1: 176*. 

allints 1: 28%. 


ar10 1: 256%. 

arrayl0 1: 130, 13. 131%. 
arrayl0p 1: 130*. 

bitbkt 1: 137*. 

bkwd_lin 1: 95*, 
bkwdlink 1: 210*. 
blk_in p 1: 186*. 

blkno 1: 220%. 

block_p_ 1: 185*. 


blockstr 1: 151*. 

bsysglob 1: 38*. 
buff_off 1: 218*, 1: 235%. 
buff_rdb 1: 217*, 1: 234*. 


ec cmd 1: 250%. 
c sector 1: 250*. 
cb addr 1: 142%. 


cd_conso 1: 79%. 
ced_hard 1: 77%, 
cd_parap 1: 78%. 
ed_scc 1: 75%. 
ed_slotl 1: 70*. 
ed_slot2 1: 71%. 
ed_slot3 1: 72*, 
cd_slot4 1: 73%. 
ed_slot5 1: TA*. 
ced_soft 1: 76%. 
cfigptr 1: 189*. 
chained_ 1: 199. 
clkonint 1 36*. 
clokints 1 35*. 
complete 1: 176. 
config _a 1: 267*. 
configpt 1: 242+. 
configty 1: 168*. 
copsints 1: 31*. 
cur_info 1: 280*. 
cur_num_ 1: 283*. 
dalarms 1: 66*, 1: 246%. 


databad 1: 202. 

datamayb 1: 202*. 

dataok 1: 202%. 

datastat 1: 202*. 

dataused 1: 206*. 

dattach 1: 62*, 1: 248%. 
de rec 1: 253*. 

dcode 1: 255%. 


dcontrol 1: 58*, 1: 247%. 
dd 1: 91*. 

ddiscon 1: 60*, 1: 244. 
ddown Ls 53*, 1: 244%. 


dev_chai 1: 183*. 
device _n 1: 149%. 
devname 1: 146%. 
devrec 1: 138, 1: 140%. 
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devt 1: 150%. 
devtype 1: 137%, 
dinit 1: 
dinterru 1: 
disk_ext 1: 213, 
disk_io_ 1: 199%, 
diskdev 1: 137*. 
driverde 1: 
drvrec_p 1: 144*. 
dskforma 1: 

dskio 1: 
dskuncla 1: 
dummy _re 1: 282*. 
dunattac 1: 
dversion 1: 254*. 
e name 1: 135%, 
ec 1: 
ecm_type 1: 107*. 
ejectabl 1: 165*. 
em 1: 
entry pt 1: 141*. 
ext_addr 1: 143*. 
ext_disk 1: 159*. 
ext_ptr 1: 268*. 
extdptr_ 1: 213*, 
fileid 1: 205*. 
filler 1: 203. 
floppy 1: 127%. 
fnctn_co 1: 243*. 
fs 1: 
fs_strt_1: 163*. 
fwd_link 1: 
fwdlink 1: 209*. 
hard_err 1: 193*. 
hddown 1: 
hdinit 1: 
hdisk_cb 1: 261, 
hdiskcb_ 1: 261*. 
hdskio 1: 
header 1: 110*. 
hentry_p 1: 160*. 
implemen 1: 300. 
in_servi 1: 176*. 
init 
intl 
int2 
int4 
int_prio 1: 278*. 
interfac 1: 
intpar 1: 246%. 
intsoff_ 1: 
intson_t 1: 
io_mode 1: 224*. 
iochanne 1: 148%. 
iospacem 1: 

kind 1: 111%. 
last_dat 1: 223*. 
last_fwd 1: 222*. 
link_ptr 1: 
linkage 1: 
list_cha 1: 184*. 
max_enam 1: 
maxdev 1: 

miscl 1: 226%. 
misc2 1: 227%. 
mm 1: 

msec 1: 172. 
n_config 1: 248%. 
non_io 1: 137*. 
num_blok 1: 161*. 
num_byte 1: 237%. 
num_chun 1: 225%. 
o_config 1: 249%. 
operatn 1: 188%. 
osportio 1: 
Ppagelabe 1: 200*, 


1: 
1: 
des 
1: 


1: 150. 
52*, 1: 244%. 
51*, 1: 246*. 
1: 214%, 

1: 224. 


55*, 1: 244%. 
57*, 1: 245%. 
54*, 1: 244%. 


65*, 1: 249%. 


g1*. 


1: 280. 


g1*. 
94%, 

67*, 1: 244%. 
63*, 1: 244%, 
1: 266*. 


64*, 1: 250*. 


g1*. 
85*, 1: 147, 1: 148, 
g6*, 1: 88. 

87*, 1: 89, 1: 207, 
7. 


98*, 1: 278. 


48%. 


92*. 
92, 1: 93%, 1: 110, 


46*, 1: 135. 
Aix, 1: 168. 


91%, 


g1*. 


1: 221, 1: 270, 1: 277. 


1: 149, 1: 186, 1: 188, 
1: 208, 1: 209, 1: 210, 
1: 183, 1: 184. 
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1: 204. 


1: 222. 
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param_pt 1: 240*. 


params 1: 240, 
parptr 1: 247%. 
pascalbd 1: 137*. 
peb_chai 1: 182*. 
pceb_type 1: 107*. 
permanen 1: 152*. 
permreq_ 1: 155*. 
pm 1: 
portcbof 1: 


1 
preq_ava 1: 156*. 
ptrdevre 1: 138%, 
raw_data 1: 269*. 
raw_head 1: 270*. 
raw_io 1: 199%. 
rb_headt 1: 108, 
rb_type 1: 107%, 
rbheader 1: 108%. 
read_fla 1: 216*, 
rec_port 1: 121*. 
relpage 1: 208*. 
relptr 1: 
removabl 1: 165*. 


req 1: 245*. 


req_exte 1: 191*. 
req _hd_p 1: 281*. 
reqabt f 1: 178*. 
reqblk 1: 133, 


reqblk_t 1: 107*. 
regptr_t 1: 133*, 
reqresta 1: 

reqspec_ 1: 195*. 
reqsrv_f 1: 176*. 
reqstatu 1: 187%. 
reqsts_t 1: 175*, 
reqsucce 1: 177*. 
required 1: 154*. 
resolved 1: 219%, 
restrt_c 1: 274*. 
restrt_1 1: 275*. 


rs232 1: 123%. 
rsints 1: 
screen 1: 126*. 


sec 1: 171*. 


sect_lef 1: 272*. 
self ide 1: 153*. 
seq_exte 1: 230, 
seqdev 1: 137%. 
segextpt 1: 230*. 
seqio 1: 

size rsp 1: 
slot_no 1: 147%. 
slotints 1: 

slotx 1: 122%. 
soft_hdr 1: 221*. 
soft_hea 1: 277*. 


sparl 13. 137%. 
spar2 1: 137%. 
spar3 1: 137. 
sparel 1: 
spare2 1: 
spare3 1: 
spare4 1: 
sprl 1: 107%. 
spr2 1: 107*. 
spr3 1: 107. 


still_in 1: 249*. 
string 1: 135. 
strt_blo 1: 162*. 
timestmp 1: 170*. 
total_re 1: 276*. 
trecord 1: 
twigints 1: 

unit 1: 
v_flag 1: 273*. 
version 1: 201*. 


1: 241*. 


91%) 
39%. 


1: 154, 1: 168, 1: 189, 


1: 182. 


1: 181+. 


1: 155, 1: 245, 
59*, 1: 245*. 


1: 281, 


1: 187. 


1: 236*. 


29%. 


1: 231*. 


56*, 1: 245%. 
43%. 


30*. 


91%. 
g1*. 
91*., 
91. 


1: 242, 


1: 282. 


1: 248, 
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1: 267. 
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vertints 1: 32*. 
vial 1: 125%. 

via2 1: 124%. 

volume 1: 204*. 

winints 1: 34*, 
with_hea 1: 199*. 
without_ 1: 199*. 
worstwar 1: 284*. 
x_leng 1: 271*. 
xfer_cou 1: 215*, 1: 232*. 
Declaration Character : '*' 
Assignment Character : '=' 


### THE END ### 
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